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Subcontractor  (Southwest  Research  Institute)  describes  the  hardware  and  software  comprising  the  Flight 
Instrument  Package  (FIP),  a  collection  of  transducers  and  electronic  components  that  measure  primary  flight 
motion  and  position  parameters  and  generate  digital  data  representing  those  parameters.  Pitch  angle,  bank 
angle,  altitude,  vertical  velocity,  airspeed,  heading,  and  angle  of  attack  are  the  main  quantities  digitized  and  relayed 
to  a  data  port  for  processing  into  various  displays  of  aircraft  state.  The  FIP  developed  as  part  of  this  task  was  used 
in  a  Beech  Queen  Air  aircraft  to  drive  the  Acoustic  Orientation  Instrument,  which  provides  the  pilot  with  an  auditory 
display  of  aircraft  bank,  airspeed,  vertical  velocity,  and  other  parameters  as  necessary. 
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INTRODUCTION 


The  Flight  Instrument  Package  (FIP)  is  designed  to  translate  inflight 
motion  to  digital  and  analog  signals  that  can  be  used  by  the  Acoustic 
Orientation  Instrument  or  AOI.  Information  on  the  AOI  can  be  found  in  the  report 
titled  Inflight  Evaluation  of  an  Acoustic  Orientation  Instrument  Final  Report, 
March  1990.  The  sensor  and  data  processing  package  provides  real-time  data 
corresponding  to  aircraft  speed,  altitude,  vertical  velocity,  bank  angle,  pitch 
angle,  heading,  and  angle  of  attack.  Both  digital  RS-232  data  and  processed 
analog  signals  are  available  to  the  user.  A  Beech  Queen  Air  served  as  the  test 
aircraft  for  the  development  of  the  system.  During  testing  of  the  individual 
transducers,  the  pilots  were  asked  to  accomplish  a  series  of  repetitive 
maneuvers  that  tested  specific  attributes  of  each  device.  The  data  taken  during 
these  test  flights  was  correlated  with  verbal  reports  and  the  accuracy  of  the 
transducer  was  determined  during  post  processing  of  the  flight  data. 

HARDWARE 

The  design  of  the  FIP  includes  four  major  subsections  (Figure  1 : m 
Overview  ),  The  first  component,  sensors,  allows  the  system  to  i.i».;nitor 
movement,  air  pressures,  and  angular  changes  while  in  flight.  The  second, 
sensor  electronics,  provides  the  necessary  translation,  amplification,  and 
filtration  to  the  raw  sensor  signals.  The  third,  a  computer  system,  provides  the 
necessary  interface  and  data  processing  capabilities  required  to  both  analyze 
the  sensor  data  and  provide  meaningful  output  to  the  AOI.  Finally,  a  power 
source  and  convertor  provide  power  to  both  the  FIP  and  the  AOI. 

The  FIP  contains  several  transducers  which  translate  physical 
parameters  to  electrical  to  be  processed  by  the  microcomputer  system. 
Because  of  the  sensors  utilized  in  this  design,  in  most  cases,  the  response  rate 
and  accuracy  of  the  FIP  are  far  greater  than  that  of  the  aircraft  instruments. 

A  total  of  nine  sensor  parameters  are  used  by  the  computer  system  to 
characterize  flight  performance.  These  are: 

Heading  (  X,  Y,  and  Z  ) 

Airspeed 

Altitude 

Vertical  Velocity  (calculated) 

Bank  Angle 
Pitch  Angle 
Heading  Deviation 
Altitude  Deviation 
Angle  of  Attack 

In  several  cases,  the  signals  for  the  sensors  are  used  in  combination 
with  each  other  to  calculate  a  parameter.  Two  examples,  heading  and  vertical 
velocity,  are  discussed.  Raw  heading  is  first  calculated  using  the  X,  Y,  Z 
magnetometer  signals  and  a  simple  transformation  algorithm.  It  is  then 


translated  to  an  upright  condition  by  subtracting  the  roll  and  pitch  angles 
shown  by  the  gyroscope.  This  re-orients  the  gyro  to  a  position  that  is  horizontal 
to  the  Earth's  axis  or  the  null  position.  Vertical  velocity  is  derived  using  a 
change  in  altitude  over  time.  Altitude  data  is  provided  using  a  pressure 
transducer  and  the  time  from  a  real  time  clock. 

Sensor  Overview 

FIP  sensors  provide  a  conversion  of  physical  parameters  to  an  electrical 
signal  that  can  then  be  interpreted  by  the  FIP  computer  system.  (Figure  2; 
Sensors  ).  The  FIP  uses  a  total  of  five  sensors  in  order  to  provide  this 
capability.  Each  is  listed  and  described  below. 

Airspeed 

Airspeed  is  a  function  of  the  differential  pitot  and  static  pressures  in  the 
aircraft's  pitot-static  system.  The  co-pilot's  pitot-static  system  in  the  Beech 
Queen  Air  has  been  modified  to  allow  monitoring  by  the  FIP.  In  the  case  of 
airspeed,  the  pitot  side  of  the  system  is  led  to  the  high  pressure  end  of  the 
transducer.  The  low  end  of  the  transducer  is  connected  to  the  static  side  of  the 
aircraft  and  the  resulting  differential  pressure  provides  an  accurate 
measurement  of  airspeed  over  varied  temperature  and  humidity  conditions.  If 
the  flight  pack  is  flown  above  12,500  feet  or  at  temperature  ranges  beyond 
standard  commercial  ranges,  software  compensation  and  additional  hardware 
capable  of  monitoring  outside  temperature  and  humidity  will  be  required. 

The  transducer  provides  a  10  mv  per  PSI  output  and  is  specified  with  a 
maximum  sensitivity  of  5  PSI.  The  electronics  in  the  FIP  provide  a  50  k  load,  5 
volt  negative  offset,  and  a  gain  of  1000  to  give  a  total  output  voltage  of  ±5  volts. 

During  the  initial  testing  of  the  system,  airspeed  was  calculated  using  the 
formula; 

P  =  1/2  p  *  (V)''2  ( 1  +  {1/4)[(V''2)/(aO''2)]) 


where; 


P  =  differential  pressure  reading 
p  =  Air  density  at  sea  level 

V  =  Airspeed 

aO  =  Speed  of  sound  at  sea  level 

V  =  velocity. 

Differences  in  humidity,  initial  air  temperature,  and  relative  angle  of  the  sensors 
to  the  plane  cause  anomalies  in  the  data  which  are  compensated  for  by  using  a 
look-up  table  mapped  to  the  PSI  values  (Appendix  A  ). 


Altituda 


Attitude  0  - 1 5  psi  static 


FIGURE  2  >  SENSORS 


Altitude  is  derived  using  a  15  PSI  pressure  transducer.  The  transducer 
provides  100  mv  full  scale  sensitivity  using  the  10  volt  reference  included  in  the 
FIP  circuitry.  This  signal  decreases  as  the  aircraft  increases  altitude  because  air 
pressure  decreases  as  altitude  increases.  The  static  readings  from  the 
transducer  are  multiplied  by  a  gain  of  100  to  provide  full  scale  output.  The  signal 
is  offset  by  a  negative  5  volts  to  provide  better  resolution  to  the  A/D  board. 

The  minimum  theoretical  altitude  of  15  PSI  occurs  below  sea  level  and 
produces  an  A/D  count  of  4096.  Since  this  is  rarely  possible  in  normal  flight,  the 
range  of  0-15  PSI  was  deemed  acceptable  for  the  sensor  range.  A  maximum 
altitude  of  13,000  feet  above  mean  sea  level  was  used  in  this  application.  A 
reading  of  2.39  PSI  at  13,000  feet  yields  a  count  of  653,  the  maximum  altitude  to 
be  attained  in  the  Beech  Queen  Air. 

A  lookup  table  is  utilized  because  of  the  complex  equations  used  to 
determine  altitude.  Appendix  B  shows  the  altitude  vs.  PSI  data  used  in  the  FIP. 
During  the  course  of  development,  several  equations  fit  to  these  data  resulted  in 
unacceptable  accuracy.  The  lookup  table  is  implemented  in  the  code  and  shown 
in  Appendix  C. 

During  the  final  testing  of  the  system,  an  initial  altitude  offset  was  entered 
while  downloading  the  code  to  the  FIP  as  the  airplane  was  on  the  field  before 
takeoff.  This  helped  to  null  the  effect  of  temperature  differences  found  in  the 
summer  at  the  various  altitudes,  (see  System  Software  below ) 

Vertical  Vebcitv 

Vertical  velocity  is  a  calculated  value  based  on  a  change  in  altitude  over 
time.  The  system  uses  a  time  base  of  15  seconds  for  the  calculation.  The  current 
value  for  altitude  at  time  zero  is  subtracted  from  the  altitude  value  at  time  zero  plus 
15  seconds.  Provisions  are  made  to  alter  the  time  period  used  for  more  rapid 
updates.  This  signal  is  not  directly  derived  with  a  transducer,  therefore,  the 
signals  are  not  directly  related  to  A/D  counts.  In  order  to  allow  for  both  climbing 
and  diving,  the  A/D  counts  above  2048  are  used  to  show  a  climb  and  the 
numbers  below  2048  represent  a  dive.  An  A/D  count  of  zero  represents  the 
maximum  dive  value  and  the  A/D  count  of  4096  represents  the  maximum  climb. 
Because  these  numbers  are  set  during  downloading,  the  computer  source  code 
(Appendix  C)  should  be  consulted  for  the  current  settings. 


Angle  of  Attack 

This  signal  was  originally  provided  from  a  synchro  based  angle  of  attack 
(AOA)  vane  mounted  on  the  side  of  the  aircraft.  Initial  circuitry  consisted  of  a 
synchro  to  linear  convertor,  power  convertor,  and  a  set  of  buffer  amplifiers. 
Incompatibilities  in  the  system  prevented  the  units  from  working  properly  and 


the  AOA  system  was  not  implemented  using  the  synchro  outputs.  Instead,  the 
AOA  vane  was  modified  by  removing  a  single  non-working  synchro  and 
replacing  it  with  a  potentiometer.  While  the  system  remains  untested,  it  is 
expected  to  provide  accurate  results  with  only  minor  circuit  modifications. 


Vertical  Gyroscope 

A  vertical  gyroscope  from  Humphrey,  Inc.  (Appendix  D)  was  used  to 
determine  bank  and  pitch  angle.  The  calibration  data  (Appendix  D)  provides 
reasonable  accuracies  and  allows  a  straight  line  interpolation  of  the  data. 
Because  of  the  mechanisms  used  within  the  gyro,  several  precautions  are 
necessary.  First,  the  gyro  should  be  shielded  from  any  mechanical  shock.  A 
special  vibration  absorbing  mounting  material  is  used  to  limit  the  mid  and  high 
frequency  vibrations  produced  by  the  aircraft  during  flight.  Because  of  this, 
bolts  or  other  securing  devices  are  not  required  and,  in  fact,  would  simply 
transmit  the  harmful  vibrations  if  installed.  Secondly,  the  gyro  should  not  be 
turned  on  unless  the  FIP  is  being  used.  The  life  of  the  bearings  is  limited  and 
unnecessary  use  simply  shortens  the  time  between  servicing.  Contact  the 
manufacturer  if  servicing  is  required. 

The  implementation  of  both  bank  and  pitch  is  shown  below.  Care  has 
been  taken  to  limit  the  current  provided  at  the  gyro  electrical  contacts. 
Because  of  this  current  limiting,  any  modifications  to  the  gyro  portion  of  the  FIP 
should  be  done  in  accordance  with  the  gyro  literature. 

Bank  Angle 

Bank  angle  is  derived  using  a  vertical  gyroscope.  The  gyro  provides  a 
stabilized  source  around  which  a  mechanically  coupled  potentiometer  moves. 
As  the  relative  position  of  the  gyro  changes,  a  resistance  change  proportional 
to  the  change  in  position  occurs.  The  maximum  bank  angle  to  the  left  produces 
an  A/D  count  of  zero,  while  a  maximum  bank  angle  to  the  right  produces  a 
count  of  4096.  The  null  position  for  the  sensor  produces  2048  counts.  Typical 
values  during  test  flights  were  between  681  and  3415  A/D  counts 
corresponding  to  +20  and  -20  degrees  of  roll. 

Pitch  Angle 

Pitch  angle  is  derived  in  a  manner  similar  to  that  of  bank  angle.  The 
maximum  pitch  up  occurs  at  +60  degrees  or  zero  A/D  counts.  The  maximum 
pitch  down  occurs  at  -60  degrees  or  4096  A/D  counts.  Null  pitch,  or  zero 
degrees  is  represented  by  2048  counts.  Typical  values  during  test  flights  were 
+25  to  -  25  degrees  of  pitch  corresponding  to  1194  -  2901  A/D  counts. 
Because  of  the  low  delta  value  and  the  obvious  resolution  errors  that  could 
occur,  the  gain  on  the  op-amps  may  be  doubled  or  tripled  if  the  effective  range 
is  not  required. 


The  three-axis  magnetometer,  manufactured  by  Dowty  Defense  &  Air 
Systems  Limited,  U.K.,  provides  three  axes  of  relational  data.  Each  of  the 
integral  coils  provides  one  of  three  angular  measurements  of  the  Earth's 
magnetic  lines  of  flux.  Output  is  provided  as  a  ±  3  VDC  signal  proportional  to 
the  position  of  the  sensor  angle  to  the  Earth's  flux  lines.  As  an  example,  when  a 
sensor  is  parallel  to  the  lines  of  flux,  the  resulting  output  is  0  VDC.  If  the  sensor 
is  peipendicular,  maximum  saturation  occurs  and  maximum  voltage  is  obtained. 
In  this  application,  the  three-axis  strapdown  magnetometer  is  used  with  the 
vertical  gyro  to  determine  heading.  The  magnetometer  provides  a  north 
reference  when  nulled  to  a  level  condition  using  the  angular  offsets  provided 
by  the  pitch  and  roll  gyro.  The  dip  angle  is  measured  by  the  Z  axis  and  the 
output  data  is  read  using  the  pitch  gyro  to  null  the  dip  angle.  The  nulled 
position  provides  an  X  and  Y  angular  output.  The  arctangent  of  the  X  and  Y 
provides  the  aircraft  heading.  A  dip  angle  of  62  degrees  is  used  but  can  be 
changed  within  the  software  if  the  FIP  is  used  at  a  location  other  than  the  state 
of  Texas. 

Axis  Data 

X  -  Bank  (  wing  to  wing  ) 

Y  -  Pitch 

Z  -  Dip  angle 

Because  of  the  dynamics  of  flight,  the  assigned  coils  are  not  fixed  but 
instead  flexible  based  on  the  mounting  of  the  gyro.  System  repeatability, 
accuracy,  sensitivity,  and  frequency  response  are  shown  in  Appendix  E. 

The  magnetometer  has  been  mounted  using  a  standard  strip  adhesive. 
Non-ferrous  mounting  of  the  device  and  the  removal  of  moving  ferrous  based 
objects  near  the  device  during  flight  are  important  considerations  that  will 
insure  accurate  readings. 


These  data  are  derived  using  the  difference  between  the  calculated 
heading  from  the  three-axis  magnetometer  and  the  setting  shown  on  the  front 
panel  display.  The  compass  headings  are  divided  into  the  range  of  the  A/D  to 
calculate  the  values  given  by  the  FIP  as  shown  below. 

Ex:  4096/360  =  counts  /  degree  of  error  =  1 1  counts  per  degree  of  error 

A  potentiometer  is  used  to  set  the  preferred  heading.  The  high  terminal  of  the 
pot  is  provided  with  a  10V  reference  source.  The  low  terminal  of  the  pot  is  tied 
to  ground.  The  wiper  provides  a  user  selectable  voltage  that  is  then  buffered 
and  read  by  the  A/D  board  and  displayed  using  a  digital  panel  meter  (see  the 
section  entitled  Display  Board  below  ). 


FIP  ELECTRONICS 


Signal  Conditioning  Board 

The  internal  electronics  in  the  FIP  are  located  on  three  printed  circuit 
boards.  The  main  board,  affixed  to  the  base  of  the  package,  contains  the 
sensor  signal  conditioning  electronics  and  buffer  electronics.  The  board 
mounted  on  the  front  of  the  FIP  contains  the  battery  pack  power  regulation  and 
filter  electronics  used  to  convert  the  battery  supplies  to  voltages  used  within 
the  FIP  and  by  the  AOI.  The  final  board  provides  the  stabilized  reference 
sources  for  the  potentiometers  used  to  set  both  desired  heading  and  altitude. 

The  signal  conditioning  system  electronics  (  Appendix  F  )  are  designed 
to  work  with  either  bridge-based  or  direct  output  sensors  (Figure  3  Signal 
Conditioning  Electronics).  If  a  bridge-based  transducer  is  used,  a  complete 
bridge  and  bridge  amplifier  are  required  if  not  specified  in  the  original  design. 
Input  amplifiers  are  either  single  ended  or  differential.  Both  the  airspeed  and 
altitude  sensors  require  that  the  pre-amplification  stage  configuration  be 
differential  with  gains  of  200.  In  all  other  cases,  input  gains  are  minimal. 

All  sensors  in  the  system  were  tested  individually  and  found  to  have  a 
high  frequency  component  that  was  not  part  of  the  useful  data  set.  To  eliminate 
this,  a  standard  input  configuration  was  used.  As  shown  in  Figure  3,  all 
sensors  are  buffered  using  either  unity  gain  op-amps  (OP-77  )  or  a  pre-amplifier 
configuration  with  a  minimum  gain  as  mentioned  above.  The  next  level  of 
processing  includes  a  low  pass  filter  with  a  roll  offset  to  approximately  10  Hz. 
The  discrete  implementation  using  an  MC34084  provides  a  one  chip  filtration 
that  increases  the  system  accuracy  while  providing  the  following  amplification 
stages  with  a  clean  low-level  signal.  Each  signal  is  then  buffered  twice  before 
routing  to  the  external  analog  connector  or  the  system  VME  A/D  converter 
board.  Gains  on  both  buffers  can  be  modified,  but  are  set  to  provide  the 
maximum  resolution  to  the  A/D  system.  If  gain  changes  are  made  in  the  system, 
the  program  constants  must  also  be  changed  in  order  to  limit  scaling  errors.  In 
some  cases,  a  -5  volt  offset  is  added  to  allow  for  greater  voltage  swings  within 
the  working  ranges  of  the  sensors. 

Both  the  analog  test  connector  and  the  ND  connector  can  be  used  to 
directly  monitor  individual  sensor  operation.  In  most  cases,  the  analog 
connertor  is  most  appropriate  for  this  purpose.  Pin  numbering  for  the  analog 
connector  is  shown  below.  The  pin  numbers  for  the  A/D  connector  can  be 
derived  using  the  data  presented  in  the  Mizar  Analog  Input  Module  manual 
(Appendix  I  )  and  the  channel  numbering  data  shown  in  the  section  entitled 
Data  Processing  Computer  System. 

The  analog  test  connector  provides  the  sensor  signals  on  a  26  pin  Berg 
connector  on  the  face  of  the  FIP  chassis.  These  pins  provide  only  raw,  and  in 
some  cases,  amplified  signals  to  the  user  for  general  debugging  and  analysis. 
The  schematic  for  this  board  shows  the  output  stages  to  this  connector.  Note 


BRIDGE  TYPE 


FIGURE  3  -  SIGNAL  CONDITIONING  ELECTRONICS 


that  the  OP-77  op-amps  are  the  only  buffering  provided  for  these  signals. 
Because  of  this,  care  should  be  taken  to  limit  the  output  current  when  driving 
any  significant  loads. 


The  A/D  channels,  the  signals  being  read,  the  connector  numbering  and 
the  signal  names  are  shown  below. 

Signal  Name 

Channel  ff 

Berg  5Q  Pin 

Barg  Pin 

Altitude 

4 

13 

20 

Airspeed 

5 

17 

22 

Pitch  angle 

6 

19 

24 

Roll  angle 

7 

23 

26 

Mag.  X-axis 

8 

2 

18 

Mag.  Y-axis 

9 

4 

16 

Mag.  Z-axis 

10 

8 

14 

Note:  All  unused  inputs  have  been  tied  to  ground  on  the  printed  circuit  board. 
This  helps  not  only  to  limit  the  noise  in  the  system  but  also  to  prevent  errors  in 
software  development. 

Pins  grounded  on  the  Mizar  A/D  board: 
3,6,9,12,15,18.21.24.27,30,33.36,39.42.45,48,49,50 


Power  SuoplyL-Board 

Because  the  power  supplies  available  in  the  aircraft  were  not 
appropriate  for  this  system,  a  battery  package  (  see  below  )  and  power 
convertor  system  were  required.  The  power  supply  board  (  Appendix  G  ) 
consists  of  two  Mizar  DC-DC  convertors  (Appendix  G  ).  These  units  provide  5 
volt  outputs  from  12  volt  sources.  The  FIP  utilizes  +24V,  ±12V,  and  +5  V  as 
shown  below.  The  +  and  -  12V  supplies  are  used  directly  from  the  battery 
sources  and  filtered  as  necessary  to  eliminate  reflected  noise.  The  FIP  also 
requires  a  24V  supply  for  the  vertical  gyroscope.  This  is  derived  using  two  -12 
V  battery  sources  in  series.  The  5V  supply  was  derived  using  the  Mizar 
convertor.  Because  the  AOI  is  also  powered  from  this  system,  a  secondary  5V 
Mizar  convertor  was  required.  The  +  and  -  12V  signals  for  the  AOI  are  similarly 
filtered.  Power  requirements  and  the  voltages  used  by  each  portion  of  the 
system  are  shown  below. 

API  power  requirements 
AOI  digital  board 
AOI  68HC1 1  board 
Timer 

Communications  board 
Audio  Board 


5V  @  300ma 
5V@  lOOma 
5V  @  50ma 
5V@  lOOma 
5V  @  50ma 
+12V(S>  300ma 
-12V@  300ma 


White  noise  and  filter  board 


5V<§>  50ma 
-12V@  150ma 
+12V@  150ma 


FiP  pQyyer  requiisments 
VME  system 
SBC-2 

VME-750 

Co-processor 
Mizar  A/D 


5V  @  3.6A 
+12V(2>35ma 
-12V@  35ma 
5V  @  1.2A 
+12V@  35ma 
-12V@35ma 
5V@  150ma 

5V  @  1 .2  A 


The  use  of  Mizar  power  convertor  modules  caused  several  grounding 
problems  in  the  system.  The  first  problem,  the  occurrence  of  noise  above 
1  MHz  was  expected  because  of  the  switching  characteristics  of  the  convertors 
and  is  suppressed  using  extensive  bypassing  and  liberal  ferrite  noise 
suppressing.  In  several  instances,  a  ground  potential  in  excess  of  .5V  was 
observed  with  connected  grounds.  This  was  especially  noticeable  in  the 
computer  system.  In  these  cases,  a  single  point  ground  is  utilized. 

FuSflS 


Fuses  located  on  the  board  have  been  rated  for  twice  the  normal  power 
requirements  of  the  system  and,  in  certain  cases,  for  twice  the  surge 
requirements  of  sensors.  If  a  fuse  is  blown,  careful  inspection  is  required  to 
determine  the  source  of  the  problem.  If  the  fault  was  mechanically  induced, 
replace  the  fuse  with  an  identically  rated  fuse.  If  the  fault  was  electrically 
induced,  the  cause  of  the  fault  should  be  determined  before  the  replacement 
fuse  is  introduced  into  the  system.  Replacement  of  a  faulty  fuse  when  an 
electrical  failure  has  occurred  will  likely  cause  a  further  fault  in  the  system. 

Battgry  PacKaqg 

An  external  battery  package  is  used  to  power  the  FIP/AOl  in  flight.  The 
batteries  are  mounted  in  a  transportable  black  case.  Structural  foam  has  been 
added  to  prevent  battery  movement  while  transporting  the  case.  A  single  AMP- 
type  circular  connector  delivers  the  unregulated  battery  voltages  to  the  FIP 
power  converter  board.  A  pin-out  of  the  connector  and  the  list  of  batteries  is 
provided  in  Appendix  J.  Placement  within  the  case  is  shown  in  Figure  4. 


FIGURE  4  :  BAHERY  PLACEMENT 


Under  normal  flight  conditions,  the  FIP/AOl  can  be  powered  for  at  least 
2.5  hours.  Once  the  power  has  drained  from  the  system,  the  individual 
batteries  must  be  re-charged  before  another  flight  can  occur.  Several  re¬ 
chargers  are  included  with  the  system  which  require  connection  to  an  AC 
power  outlet.  In  most  cases,  the  batteries  can  be  returned  to  an  operation  state 
in  4  to  6  hours.  Because  of  the  chemical  properties  of  the  batteries,  it  may  be 
necessary  to  deep  cycle  the  batteries  at  regular  intervals.  If  this  is  done 
correctly,  the  batteries  will  not  develop  a  memory,  thus  preventing  full 
charging.  A  simple  way  to  deep  cycle  the  batteries  is  to  leave  the  FIP/AOl 
power  on  while  the  system  is  connected.  Unfortunately,  this  method  reduces 
the  life  of  the  gyro  and  will  produce  unknown  voltages  at  the  op-amps  and  the 
DC-DC  switching  supplies.  A  safer  method  uses  high  wattage  resistors  placed 
across  the  terminals  of  the  regulator  or  the  power  connector.  A  typical  value 
for  each  12V  battery  is  a  24  ohm  10  watt  resistor. 

The  Display  Board 

The  display  board  contains  two  Acculex  LCD-type  displays,  a  pair  of 
potentiometers  used  to  set  the  heading  and  altitude  fly-to  marks,  the  system 
power  switches,  and  the  AOI  power  connector.  The  schematics  and  board 
layouts  for  this  board  are  shown  in  Appendix  H.  Data  sheets  for  the  Acculex 
displays  are  in  Appendix  H. 

This  board  allows  the  operator  to  selectively  turn  on  and  off  the  Gyro 
power,  AOI  power,  and  FIP  system  power.  The  FIP  power  is  wired  in  series 
with  both  the  AOI  and  Gyro  power  and  therefore  needs  to  be  on  for  the  other 
components  to  work.  Upon  power-up,  the  Altitude  Set  and  Heading  Set 
displays  will  show  a  number  based  on  the  current  value  of  the  10-turn  pots. 
Changing  the  pot  position  will  in  turn  change  the  number  shown  on  the  display 
and  the  voltage  applied  to  two  channels  of  the  A/D  convertor  (  see  below  ).  To 
achieve  greater  stability  and  system  accuracy,  REF-01  (  Appendix  H  )  voltage 
references  were  used  in  the  FIP.  These  sources  provide  the  highly  stable  Vin 
signal  for  the  potentiometer  voltage  divider  configuration  over  varied 
temperatures  and  input  voltages.  The  ribbon  connector  on  the  board  carries 
both  the  Display  Board  and  Signal  Processing  Board  signals  to  the  A/D 
convertor  board.  Because  of  this,  care  must  be  taken  when  re-assembling  the 
system  to  ensure  that  the  connectors  are  properly  engaged.  A  complete  list  of 
parts  is  shown  in  Appendix  K. 


DATA  PROCESSING  COMPUTER  SYSTEM 

The  computer  system  in  the  FIP  is  a  VME-bus  based  68010  processor, 
VME/750  accessory  interface  board,  and  a  Mizar  8605  analog  to  digital 
convertor  board.  Data  sheets  and  instruction  manuals  for  the  68010  board  are 
provided  in  Appendix  L.  The  manual  for  the  VME/750  board  is  shown  in 
Appendix  M.  The  manual  for  the  Mizar  8605  board  in  shown  in  Appendix  I. 


SBC-2  68010  board 


The  VME  Specialist's  68010  board  is  a  VME  compatible  microprocessor 
with  a  10-Mhz  clock,  512k  of  dual  port  RAM,  two  RS-232  ports,  one  16  bit 
timer/counter,  seven  levels  of  interrupts,  and  EEPROM  start-up  capabilities. 
The  board  is  a  standard  3U  unit  and  occupies  the  first  slot  of  the  card  cage. 


YMEZZSQ 

The  VME/750  multi-function  accessory  board  is  provided  with  the  SBC- 
2.  The  VME-based  board  supports  two  additional  RS-232  ports,  a  16  bit 
counter/timer,  a  real-time  clock  with  battery  backup,  sockets  for  additional 
RAM  or  ROMS,  and  a  68881  math  co-processor.  The  board  is  tied  directly  to 
the  SBC-2  using  board-to-board  jumpers  and  does  not  utilize  the  VME 
backplane  for  either  data  or  address  signals.  The  manual  for  this  board  is 
provided  in  Appendix  I. 

MACH-2  FQRTH/68QQQA/ME 

Mach-2  Forth  from  Palo  Alto  Shipping  Company  was  provided  in  ROM 
to  VME  Specialists  for  this  application.  A  high  and  low  address  ROM  is 
located  on  the  SBC-2  board  and  is  configured  as  the  start-up  system.  Full 
floating  point  support  is  provided  in  the  code  and  access  to  the  68881  math  co¬ 
processor  is  required  for  proper  operations  of  the  unit.  Code  listings  are 
provided  in  Appendix  C. 

MIZAR  8605  A/D 

The  Mizar  8605  analog  input  module  provides  a  12  bit  VME-based  A/D 
convertor.  The  board  allows  either  16  single  ended  or  eight  differential  analog 
inputs  at  user  selectable  voltage  ranges.  Signal  amplification  to  lOOOx  is  also 
provided  on  the  board.  In  this  application,  the  board  is  configured  to  allow  1 6 
single-ended  inputs  from  -10  to  +10  volts  DC.  Multiplexed,  25us  conversion 
provides  data  rates  far  in  excess  of  those  required  by  this  application. 
Connector  data,  conversion  tracking  information,  schematics,  and  a  parts  list 
are  provided  in  Appendix  I. 


SYSTEM  SOFTWARE 


The  FIP  software  is  written  to  run  on  the  VME  Specialists  SBC-2/750 
combination  board  in  conjunction  with  the  Mizar  8605  A/D  board.  The  entire 
system  uses  the  VME  standard  bus  hardware  configuration  and  is  housed  in  a 
Electronic  Solutions  five  slot  card  cage.  The  program  is  written  in  the  Mach-2 
Forth  language  located  in  ROM  on  the  VME  Specialists  VME-750  board.  The 
Flight  Pack  system  is  described  best  by  splitting  it  in  three  parts.  The  three 
parts,  input,  processing,  and  output,  each  work  together  to  form  the  complete 
processing  loop. 


Input 


Eleven  of  the  16  available  A/D  channels  are  used  in  this  application  for 
signal  inputs.  Each  channel  is  median-filtered  using  a  constant  filter  size  set  by 
a  program  constant.  A  data  set  for  an  input  channel  is  acquired  by  collecting  a 
fixed  number  of  values  set  by  the  filter  size.  Next  the  values  are  stored  into  an 
array  and  a  bubble  sort  performed.  Then,  the  middle  value  in  the  array  is  used 
as  the  current  data  value.  This  method  proves  effective  in  filtering  out 
undesirable  fluctuations  that  could  occur  from  sampling  data  in  a  hostile 
environment. 

All  A/D  channels  are  converted  by  the  Mizar  8605  A/D  board.  The 
converted  data  is  in  12-bit  binary  values.  Some  channels  will  have  varying 
voltages  converted  to  12-bits  which  could  be  -10V  to  -i-IOV  (0  to  4096),  -10V 
to  OV  (0  to  2048),  and  OV  to  -t-1  OV  (2048  to  4096).  The  software  scales  all 
possible  voltages  accordingly  to  provide  the  highest  system  accuracy.  The 
following  will  describe  the  characteristics  of  each  of  the  channels. 

Channel  0:  Altitude  Set 

This  parameter  is  set  using  a  potentiometer  located  on  top  of  the  FIP. 
The  value  read  is  used  as  a  target  altitude  for  the  pilot.  The  readings  are 
scaled  from  0  to  12,000  and  the  voltage  output  is  from  OV  to  -»-10V. 

Channel  1 :  Heading  Set 

This  is  set  through  a  resistor  pot.  The  value  read  is  used  as  a  target 
heading  for  the  pilot.  The  readings  are  scaled  from  0  to  360,  and  the  voltage 
output  is  from  OV  to  -h1  OV. 

Channel  2:  Not  used 

Channel  3:  Not  used 


Channel  4:  Altitude 


This  signal  is  read  from  a  pressure  transducer  ranging  from  0  to  15  PSI. 
The  voltage  scale  is  -10V  to  10V.  Note  that  the  output  voltage  decreases  with 
altitude. 

Channel  5:  Air  Speed 

This  is  read  from  a  pressure  transducer  ranging  from  0  to  5  PSI.  The 
voltage  scale  is  -10V  to  OV.  As  pressure  increases,  airspeed  increases. 

Channel  6:  Pitch 

This  is  read  from  the  vertical  gyroscope  with  a  range  of  ±50  degrees. 
The  voltage  scale  is  OV  to  9.32V.  For  a  12-bit  A/D,  the  values  are  from  2048  to 
3957. 

Channel  7:  Roll 

This  is  read  from  a  gyroscope  with  a  range  of  ±70  degrees.  The  voltage 
scale  OV  to  9.15V.  For  a  12-bit  A/D,  the  values  are  from  2048  to  3922. 

Channel  8:  Y 
Channel  9:  X 
Channel  10:  Z 

These  are  read  from  the  magnetometer.  The  magnetometer  senses  the 
relation  of  its  position  with  the  Earth's  magnetic  field.  The  voltage  scale  is  ±3 
volts  for  each  channel.  For  a  12-bit  A/D  the  values  are  from  1434  to  2662. 

The  X-axis  is  the  roll  position. 

The  Y-axis  is  the  pitch  position. 

The  Z-axis  is  the  dip  angle  position. 


Processing 

The  Flight  Pack  calculates  seven  variables  using  the  data  obtained  from 
the  input  channels.  In  addition  to  the  scaling  of  the  values  read  from  the  input 
channels,  the  data  is  scaled  again  for  use  by  the  AOI  system.  All  variables  are 
1 6-bit  values. 

Variable  1 :  Air  Speed 

The  raw  PSI  for  air  speed  is  taken  from  channel  5  and  put  through  a 
lookup  table.  The  lookup  table  has  a  knots-to-PSI  correlation.  By  using  an 
index  to  the  knots  and  getting  the  closest  matching  PSI  value,  the  index  is  used 
as  the  realized  airspeed  in  knots.  The  realized  knots  are  then  scaled  to  0  to 
4096  for  a  range  of  0  to  330  knots. 


Variable  2:  Angle  of  Attack 
Not  implemented 
Variable  3:  Vertical  Velocity 

Using  a  constant  interval  of  five  seconds,  two  separate  readings  of 
altitude  are  used  to  find  the  difference  of  altitude  over  a  fixed  period  of  time. 
The  scaling  of  the  final  value  is  from  0  to  4096  with  2048  being  no  vertical 
velocity,  0  for  a  2048  feet  per  second  or  greater  dive,  and  4096  for  a  2048  feet 
par  second  or  greater  climb. 

Variable  4;  Heading  Deviation 

Heading  value  is  calculated  using  the  X,  Y,  Z,  and  pitch  and  roll 
variables.  The  deviation  of  the  calculated  heading  from  the  heading  set  value 
in  channel  1  is  the  final  value.  A  scale  of  0  to  360  is  set  for  heading  deviation. 

Variable  5:  Roll 

Roll  is  read  from  channel  7  and  is  scaled  to  0  to  4096  with  2048  being  0 
degrees,  0  for  70  degrees  left,  and  4096  for  70  degrees  right. 

Variable  6:  Pitch 

Pitch  is  read  from  channel  6  and  is  scaled  to  0  to  4096  with  2048  being  0 
degrees,  0  for  a  50  degree  dive  angle,  and  4096  for  a  50  degree  climb  angle. 

Variable  7:  Altitude  Deviation 

The  PSI  value  is  read  from  channel  4  and  is  put  through  a  lookup  table 
that  is  a  best  fit  model  of  a  table  obtained  from  the  standard  atmospheric 
pressure  table.  The  altitude  is  used  with  the  altitude  set  value  from  channel  0  to 
find  the  difference  or  the  altitude  deviation.  The  difference  is  scaled  from  0  to 
4096  with  2048  being  zero  feet  of  deviation,  0  for  -2048  feet  or  less  deviation, 
and  4096  for  +2048  feet  or  greater  of  deviation. 

During  processing  of  the  input  channels,  the  FIP  data  can  be  requested 
for  transmission  at  any  time  by  the  AOI  system.  To  handle  this  request,  a  multi¬ 
tasking  environment  has  been  implemented  on  the  VME  Specialist  system 
board.  Processing  of  the  input  channels  is  performed  in  the  foreground  while 
communications  are  performed  in  the  background. 

The  background  process  checks  the  serial  port  number  for  the  AOI 
transmit  data  request.  In  order  to  prevent  the  two  processes  from  accessing  the 
memory  locations  of  the  FIP  data  simultaneously,  two  data  buffers  are  setup. 
One  buffer  is  set  as  the  current  buffer  for  data  processing  and  the  other  buffer  is 
the  completed,  processed  data  ready  for  transmittal.  The  two  buffers  are 
switched  between  these  assignments  to  prevent  sending  incomplete  data  to  the 


FIP  software.  When  the  transmit  data  request  arrives,  the  buffer  containing 
processed  data  is  sent  to  the  AOI  system. 

Output 


The  seven  variables  that  have  been  calculated  are  transmitted  upon 
receipt  of  a  STX  or  Start  TeXt  (ASCII  2)  character  from  the  AOI  system.  Since 
the  seven  values  are  16-bit  values,  and  the  RS-232  lines  only  handle  8-bit 
values,  the  1 6-bit  values  are  converted  into  2  8-bit  characters  which  are  used 
for  transmission  over  RS-232  lines.  The  sum  of  the  byte  representation  of  the 
seven  values  is  used  as  a  checksum  to  assure  proper  transmission.  The 
transmission  packet  format  of  the  7  variables  are  as  follows: 


SON  (ASCI1 1  -  Start  Of  Header) 


AIRSPEED.HI 
ANGLE  OF  ATTACK.HI 
VERTICAL  VELOCITY.HI 
HEADING  DEVIATION.HI 
ROLL.HI 
PITCH  HI 

ALTITUDE  DEVIATION.HI 

CHECKSUM.HI 

ETX  (ASCII  3  -  End  of  Text) 


AIRSPEED.LO 

ANGLE  OF  ATTACK.LO 

VERTICAL  VELOCITY.LO 

HEADING  DEVIATION.LO 

ROLL.LO 

PITCH.LO 

ALTITUDE  DEVIATION.LO 
CHECKSUM.  LO 


This  format  is  actually  a  continuous  stream  of  byte  data  from  the  ASCII 
character  SOH  to  ETX.  The  data  is  transmitted  at  9600  baud,  8  bits,  no  parity, 
and  1  stop  bit.  It  i.'.e  AOI  calculates  a  different  checksum  of  the  packet  from  the 
received  checksum,  it  will  send  STX  for  an  another  packet  to  be  transmitted 
and  will  retry  until  a  successful  packet  is  received  (Appendix  C  ). 


A  data  logging  function  is  also  performed  by  the  FIP.  The  second  serial 
port  on  the  SBC-2  has  been  configured  to  stream  data  at  approximately  one 
frame  per  second.  Under  this  system,  no  protocols  are  followed  for  the  data 
logger.  The  frame  is  simply  transmitted  to  the  host  device  and  it  is  assumed  that 
the  data  arrived  properly.  Two  tasks  are  utilized  for  this  function.  The 
foreground  task  services  the  AOI  requests  and  the  A/D  system.  The 
background  task  handles  the  once  per  second  data  logger  update  when  the 
AOI  does  not  have  a  pending  request. 


Downloading  Instructions 

The  software  running  in  the  FIP  is  stored  in  the  downloading  computer 
system.  To  run  the  FIP  code,  a  host  computer  must  be  used  to  send  the 
program  to  the  FIP  computer.  Any  simple  terminal  program  can  be  used  to 
accomplish  this  task.  During  the  development  of  the  system.  Mirror  III,  a 
common  terminal  emulation  package  was  utilized.  The  FIP  communicates  at 
9600  baud,  8  data  bits,  1  stop  bit,  no  parity.  Communication  is  established 
through  port  A  (  JA  )  of  the  FIP  computer  system.  When  running,  the  system 
terminal  will  display  <ok>  on  the  screen.  At  this  point,  the  system  file  called 


FIPPRGM.TXT  can  be  SEnt  serially.  Upon  completion  of  the  code  transfer,  the 
system  is  started  by  typing: 


XXX  GET.PSl.TO.ALT.OFFSET 

where  xxx  is  the  current  field  altitude  in  feet.  This  entry  runs  a  word  that 
provides  a  curve  fit  that  nulls  the  effect  of  temperature.  Once  an  <ok>  is 
received,  type: 

FIP_OUT  FIP_OUT_TASK  (  hit  a  carriage  return  ) 

This  runs  the  background  data  streaming  task.  If  a  terminal  is  hooked  to  port  B 
(JB  )  of  the  FIP  computer,  and  the  data  is  not  streaming  to  the  terminal,  a 
download  problem  has  occurred  and  a  re-load  is  required  after  checking  all  the 
cable  connections.  When  the  terminal  is  streaming  data,  type: 

FIP_AOI_TASK 

and  the  AOI  will  be  ready  to  access  the  FIP.  For  instructions  on  downloading 
the  AOI  code,  see  the  AOI  technical  report  re^".;  ...ced  below. 


BOM  VS  RAM 

In  this  application,  the  system  softv,/are  is  RAM  based  to  allow  maximum 
testing  flexibility.  ROMS  were  initially  considered  but  the  constant  changes 
during  flight  made  the  RAM  based  system  more  appropriate.  Initial  tests  on  the 
system  showed  that  the  inclusion  of  RAM  provided  a  readily  changed  system 
of  code  that  could  be  modified  in  a  standard  PC  editor  environment  without  the 
need  for  a  ROM  burner.  Once  the  FIP  is  operating  in  a  static  development 
state,  the  inclusion  of  ROMs  is  a  simple  task. 


RESULTS 


Initial  flight  tests  of  the  system  with  the  AOI  provided  real  time  data  to 
both  the  AOI  and  the  data  monitoring  terminal.  For  an  explanation  of  the  AOI 
inflight  testing  results,  see  the  report  titled  Inflight  Evaluation  of  an  Acoustic 
Orientation  Instrument  Final  Report,  March  1990. 

During  the  sensor  testing  phases  of  the  project,  cockpit  readings  were 
used  to  correlate  sensor  voltage  readings  to  the  actual  flight  values.  In  all 
cases  the  sensors  provided  accurate  readings  within  the  parameters  specified 
in  the  Task  Order.  Because  of  the  rapid  changes  that  occurred  during  flight,  it 
was  difficult  to  quantify  the  accuracies  of  the  system.  It  was  found,  however, 
that  the  FIP  provided  highly  repetitive  responses.  Typical  test  protocols  are 
shown  below: 

Altitude  test  sample 

Initial  flight  level:  8,000  ft 
Target  flight  level:  10,000  ft 

The  pilot  is  asked  to  maintain  a  flight  level  of  8,000  feet  for  a  period  of  30 
seconds.  At  this  point,  the  measurements  are  saved  to  a  file  on  the  data  logger. 
The  pilot  is  then  asked  to  climb  ( typical  climb  rates  were  200  ft/min  )  to  an 
altitude  of  10,000  ft.  Data  was  acquired  during  the  period  with  the  experimenter 
noting  the  initial  time,  1  minute  intervals,  and  final  time.  During  the  same 
period,  the  pilot  is  asked  to  verbally  report  the  altitude  shown  by  the  aircraft 
instruments  in  100  foot  intervals.  Once  altitude  was  stabilized,  the  file 
recording  was  ceased.  Data  files  from  the  series  were  recorded  and  analyzed 
against  the  verbal  reports.  Similar  series  were  taken  for  all  altitudes. 


Airspeed  test  sample 

Minimum  Airspeed:  90  kts 
Maximum  Airspeed:  180  kts 

In  this  series,  the  pilot  is  asked  to  verbally  report  the  airspeed  shown  on 
the  aircraft  instruments  while  slowly  increasing  speed  over  a  period  of  several 
minutes.  During  the  test,  data  are  streamed  to  a  portable  computer  and  saved 
in  a  file.  The  operator  notes  the  initial  time,  reported  airspeed  in  10  kt 
increments,  and  report  time.  This  series  was  taken  at  multiple  altitudes  and  in 
varying  weather  conditions. 

Heading  test  sample 

Heading  was  determined  using  the  aircraft  instrumentation  as  a 
reference.  Static  measurements  taken  on  the  ground  were  compared  with  the 


readings  from  the  cockpit  instruments.  While  in  flight,  similar  measurements 
were  taken  to  evaluate  the  effect  of  flight  dynamics  and  in-cabin  interference. 


Appendix  A 


Airspeed  to  A/D  Lookup  Table 


Airspeed  to  PSI  Table 


Airspeed  in  Knots 

table  from  Aero 

Instruments, 

1 1  -08-88 

Absolute 

airspeed  kts 

Pound/sq.foot 

delta  value 

Airspeed 

0.00 

0.00 

0.00 

1.00 

0.00 

0.00 

0.00 

2.00 

0.01 

0.01 

0.00 

3.00 

0.03 

0.02 

0.00 

4.00 

0.05 

0.02 

0.00 

5.00 

0.08 

0.03 

0.00 

6.00 

0.12 

0.04 

0.00 

7.00 

0.17 

0.04 

0.00 

8.00 

0.22 

0.05 

0.00 

9.00 

0.27 

0.06 

0.00 

10.00 

0.34 

0.06 

0.00 

11.00 

0.41 

0.07 

0.00 

12.00 

0.49 

0.08 

0.00 

13.00 

0.57 

0.08 

0.00 

14.00 

0.66 

0.09 

0.00 

15.00 

0.76 

0.10 

0.01 

16.00 

0.87 

0.11 

0.01 

17.00 

0.98 

0.11 

0.01 

18.00 

1.10 

0.12 

0.01 

19.00 

1.22 

0.13 

0.01 

20.00 

1.35 

0.13 

0.01 

21.00 

1.49 

0.14 

0.01 

22.00 

1.64 

0.15 

0.01 

23.00 

1.79 

0.15 

0.01 

24.00 

1.95 

0.16 

0.01 

25.00 

2.12 

0.17 

0.01 

26.00 

2.29 

0.17 

0.02 

27.00 

2.47 

0.18 

0.02 

28.00 

2.66 

0.19 

0.02 

29.00 

2.85 

0.19 

0.02 

30.00 

3.05 

0.20 

0.02 

31.00 

3.26 

0.21 

0.02 

32.00 

3.47 

0.21 

0.02 

33.00 

3.69 

0.22 

0.03 

34.00 

3.92 

0.23 

0.03 

35.00 

4.15 

0.23 

0.03 

36.00 

4.39 

0.24 

0.03 

37.00 

4.64 

0.25 

0.03 

38.00 

4.89 

0.25 

0.03 

39.00 

5.15 

0.26 

0.04 

40.00 

5.42 

0.27 

0.04 

41.00 

5.70 

0.28 

0.04 

42.00 

5.98 

0.28 

0.04 

43.00 

6.27 

0.29 

0.04 

44.00 

6.56 

0.30 

0.05 

45.00 

6.86 

0.30 

0.05 

46.00 

7.17 

0.31 

0.05 

47.00 

7.49 

0.32 

0.05 

48.00 

7.81 

0.32 

0.05 

49.00 

8.14 

0.33 

0.06 

50.00 

8.48 

0.34 

0.06 

51.00 

8.82 

0.34 

0.06 

52.00 

9.17 

0.35 

0.06 

53.00 

9.53 

0.36 

0.07 

54.00 

9.89 

0.36 

0.07 

55.00 

10.26 

0.37 

0.07 

56.00 

10.64 

0.38 

0.07 

57.00 

11.02 

0.38 

0.08 

58.00 

11.41 

0.39 

0.08 

59.00 

11.81 

0.40 

0.08 

60.00 

12.21 

0.40 

0.08 

61.00 

12.62 

0.41 

0.09 

62.00 

13.04 

0.42 

0.09 

63.00 

13.47 

0.42 

0.09 

64.00 

13.90 

0.43 

0.10 

65.00 

14.34 

0.44 

0.10 

66.00 

14.78 

0.45 

0.10 

67.00 

15.24 

0.45 

0.11 

68.00 

15.70 

0.46 

0.11 

69.00 

16.16 

0.47 

0.11 

70.00 

16.64 

0.47 

0.12 

71.00 

17.12 

0.48 

0.12 

72.00 

17.60 

0.49 

0.12 

73.00 

18.10 

0.49 

0.13 

74.00 

18.60 

0.50 

0.13 

75.00 

19.10 

0.51 

0.13 

76.00 

19.62 

0.52 

0.14 

77.00 

20.14 

0.52 

0.14 

78.00 

20.67 

0.53 

0.14 

79.00 

21.20 

0.54 

0.15 

80.00 

21.75 

0.54 

0.15 

81.00 

22.30 

0.55 

0.15 

82.00 

22.85 

0.56 

0.16 

83.00 

23.42 

0.56 

0.16 

84.00 

23.98 

0.57 

0.17 

85.00 

24.56 

0.58 

0.17 

86.00 

25.15 

0.58 

0.17 

87.00 

25.74 

0.59 

0.18 

88.00 

26.33 

0.60 

0.18 

89.00 

26.94 

0.60 

0.19 

90.00 

27.55 

0.61 

0.19 

91.00 

28.17 

0.62 

0.20 

92.00 

28.79 

0.63 

0.20 

93.00 

29.43 

0.63 

0.20 

94.00 

30.07 

0.64 

0.21 

95.00 

30.71 

0.65 

0.21 

96.00 

31.37 

0.65 

0.22 

97.00 

32.03 

0.66 

0.22 

98.00 

32.69 

0.67 

0.23 

99.00 

33.37 

0.67 

0.23 

100.00 

34.05 

0.68 

0.24 

101.00 

34.74 

0.69 

0.24 

102.00 

35.43 

0.70 

0.25 

103.00 

36.14 

0.70 

0.25 

104.00 

36.85 

0.71 

0.26 

105.00 

37.56 

0.72 

0.26 

106.00 

38.29 

0.72 

0.27 

107.00 

39.02 

0.73 

0.27 

108.00 

39.75 

0.74 

0.28 

109.00 

40.50 

0.74 

0.28 

110.00 

41.25 

0.75 

0.29 

111.00 

42.01 

0.76 

0.29 

112.00 

42.77 

0.77 

0.30 

113.00 

43.55 

0.77 

0.30 

114.00 

44.33 

0.78 

0.31 

115.00 

45.11 

0.79 

0.31 

116.00 

45.91 

0.79 

0.32 

117.00 

46.71 

0.80 

0.32 

118.00 

47.52 

0.81 

0.33 

119.00 

48.33 

0.82 

0.34 

120.00 

49.15 

0.82 

0.34 

121.00 

49.98 

0.83 

0.35 

122.00 

50.82 

0.84 

0.35 

123.00 

51.66 

0.84 

0.36 

124.00 

52.52 

0.85 

0.36 

125.00 

53.37 

0.86 

0.37 

126.00 

54.24 

0.86 

0.38 

127.00 

55.11 

0.87 

0.38 

128.00 

55.99 

0.88 

0.39 

129.00 

56.88 

0.89 

0.39 

130.00 

57.77 

0.89 

0.40 

131.00 

58.67 

0.90 

0.41 

132.00 

59.58 

0.91 

0.41 

133.00 

60.50 

0.92 

0.42 

134.00 

61.42 

0.92 

0.43 

135.00 

62.35 

0.93 

0.43 

136.00 

63.28 

0.94 

0.44 

137.00 

64.23 

0.94 

0.45 

138.00 

65.18 

0.95 

0.45 

139.00 

66.14 

0.96 

0.46 

140.00 

67.10 

0.97 

0.47 

141.00 

68.08 

0.97 

0.47 

142.00 

69.06 

0.98 

0.48 

143.00 

70.04 

0.99 

0.49 

144.00 

71.04 

0.99 

0.49 

145.00 

72.04 

1.00 

0.50 

146.00 

73.05 

1.01 

0.51 

147.00 

74.07 

1.02 

0.51 

148.00 

75.09 

1.02 

0.52 

149.00 

76.12 

1.03 

0.53 

150.00 

77.16 

1.04 

0.54 

151.00 

78.21 

1.05 

0.54 

152.00 

79.26 

1.05 

0.55 

153.00 

80.32 

1.06 

0.56 

154.00 

81.39 

1.07 

0.57 

155.00 

82.46 

1.07 

0.57 

156.00 

83.54 

1.08 

0.58 

157.00 

84.63 

1.09 

0.59 

158.00 

85.73 

1.10 

0.60 

159.00 

86.83 

1.10 

0.60 

160.00 

87.95 

1.11 

0.61 

161.00 

89.07 

1.12 

0.62 

162.00 

90.19 

1.13 

0.63 

163.00 

91.33 

1.13 

0.63 

164.00 

92.47 

1.14 

0.64 

165.00 

93.61 

1.15 

0.65 

166.00 

94.77 

1.16 

0.66 

167.00 

95.93 

1.16 

0.67 

168.00 

97.11 

1.17 

0.67 

169.00 

98.28 

1.18 

0.68 

170.00 

99.47 

1.19 

0.69 

171.00 

100.66 

1.19 

0.70 

172.00 

101.86 

1.20 

0.71 

173.00 

103.07 

1.21 

0.72 

174.00 

104.29 

1.22 

0.72 

175.00 

105.51 

1.22 

0.73 

176.00 

106.74 

1.23 

0.74 

177.00 

107.98 

1.24 

0.75 

178.00 

109.22 

1.25 

0.76 

179.00 

110.48 

1.25 

0.77 

180.00 

111.74 

1.26 

0.78 

181.00 

113.01 

1.27 

0.78 

182.00 

114.28 

1.28 

0.79 

183.00 

115.57 

1.28 

0.80 

184.00 

116.86 

1.29 

0.81 

185.00 

118.16 

1.30 

0.82 

186.00 

119.46 

1.31 

0.83 

187.00 

120.77 

1.31 

0.84 

188.00 

122.10 

1.32 

0.85 

189.00 

123.42 

1.33 

0.86 

190.00 

124.76 

1.34 

0.87 

191.00 

126.11 

1.34 

0.88 

192.00 

127.46 

1.35 

0.89 

193.00 

128.82 

1.36 

0.89 

194.00 

130.18 

1.37 

0.90 

195.00 

131.56 

1.37 

0.91 

196.00 

132.94 

1.38 

0.92 

197.00 

134.33 

1.39 

0.93 

198.00 

135.73 

1.40 

0.94 

199.00 

137.13 

1.41 

0.95 

200.00 

138.55 

1.41 

0.96 

201.00 

139.97 

1.42 

0.97 

202.00 

141.40 

1.43 

0.98 

203.00 

142.83 

1.44 

0.99 

204.00 

144.28 

1.44 

1.00 

205.00 

145.73 

1.45 

1.01 

206.00 

147.19 

1.46 

1.02 

207.00 

148.66 

1.47 

1.03 

208.00 

150.13 

1.48 

1.04 

209.00 

151.61 

1.48 

1.05 

210.00 

153.10 

1.49 

1.06 

211.00 

154.60 

1.50 

1.07 

212.00 

156.11 

1.51 

1.08 

213.00 

157.62 

1.52 

1.09 

214.00 

159.15 

1.52 

1.11 

215.00 

160.68 

1.53 

1.12 

216.00 

162.21 

1.54 

1.13 

217.00 

163.76 

1.55 

1.14 

218.00 

165.31 

1.55 

1.15 

219.00 

166.87 

1.56 

1.16 

220.00 

168.44 

1.57 

1.17 

221.00 

170.02 

1.58 

1.18 

222.00 

171.61 

1.59 

1.19 

223.00 

173.20 

1.59 

1.20 

224.00 

174.80 

1.60 

1.21 

225.00 

176.41 

1.61 

1.23 

226.00 

178.03 

1.62 

1.24 

227.00 

179.65 

1.63 

1.25 

228.00 

181.29 

1.63 

1.26 

229.00 

182.93 

1.64 

1.27 

230.00 

184.58 

1.65 

1.28 

231.00 

186.23 

1.66 

1.29 

232.00 

187.90 

1.67 

1.30 

233.00 

189.57 

1.67 

1.32 

234.00 

191.25 

1.68 

1.33 

235.00 

192.94 

1.69 

1.34 

236.00 

194.64 

1.70 

1.35 

237.00 

196.35 

1.71 

1.36 

238.00 

198.06 

1.71 

1.38 

239.00 

199.78 

1.72 

1.39 

240.00 

201.51 

1.73 

1.40 

241.00 

203.25 

1.74 

1.41 

242.00 

205.00 

1.75 

1.42 

243.00 

206.75 

1.75 

1.44 

244.00 

208.51 

1.76 

1.45 

245.00 

210.28 

1.77 

1.46 

246.00 

212.06 

1.78 

1.47 

247.00 

213.85 

1.79 

1.49 

248.00 

215.65 

1.80 

1.50 

249.00 

217.45 

1.80 

1.51 

250.00 

219.26 

1.81 

1.52 

251.00 

221.08 

1.82 

1.54 

252.00 

222.91 

1.83 

1.55 

253.00 

254.00 

255.00 

256.00 

257.00 

258.00 

259.00 

260.00 

261.00 

262.00 

263.00 

264.00 

265.00 

266.00 

267.00 

268.00 

269.00 

270.00 

271.00 

272,00 

273.00 

274.00 

275.00 

276.00 

277.00 

278.00 

279.00 

280.00 

281.00 

282.00 

283.00 

284.00 

285.00 

286.00 

287.00 

288.00 

289.00 

290.00 

291.00 

292.00 

293.00 

294.00 

295.00 

296.00 

297.00 

298.00 

299.00 

300.00 

301.00 

302.00 

303.00 

304.00 


224.75 
226.59 

228.45 

230.31 

232.18 
234.06 

235.95 

237.84 

239.75 

241.66 
243.58 

245.51 

247.45 
249.39 

251.35 

253.31 

255.28 

257.26 

259.25 

261.25 

263.25 

265.27 

267.29 

269.32 

271.36 
273.41 

275.47 
277.53 
279.61 

281.69 

283.78 
285.88 

287.99 
290.11 
292.24 

294.37 

296.52 

298.67 

300.84 
303.01 

305.19 

307.37 
309.57 

311.78 

313.99 
316.22 

318.45 

320.69 

322.95 
325.21 

327.47 

329.75 


1.84 

1.85 

1.85 

1.86 

1.87 

1.88 

1.89 

1.90 

1.91 

1.91 

1.92 

1.93 

1.94 

1.95 

1.95 

1.96 

1.97 

1.98 

1.99 
2.00 
2.01 
2.01 
2.02 
2,03 
2.04 
2.05 
2.06 
2.07 
2.07 
2.08 
2.09 
2.10 
2.11 
2.12 

2.13 

2.14 

2.15 

2.15 

2.16 

2.17 

2.18 

2.19 

2.20 
2.21 
2.22 
2.22 

2.23 

2.24 

2.25 

2.26 

2.27 

2.28 


1.56 

1.57 

1.59 

1.60 
1.61 

1.63 

1.64 

1.65 

1.66 
1.68 

1.69 

1.70 

1.72 

1.73 

1.75 

1.76 

1.77 

1.79 

1.80 
1.81 

1.83 

1.84 
1.86 

1.87 

1.88 

1.90 

1.91 

1.93 

1.94 

1.96 

1.97 
1.99 
2.00 
2.01 
2.03 
2.04 
2.06 
2.07 
2.09 
2.10 
2.12 
2.13 
2.15 

2.17 

2.18 
2.20 
2.21 

2.23 

2.24 
2.26 
2.27 
2.29 


305.00 

332.04 

2.29 

2.31 

• 

306.00 

334.34 

2.30 

2.32 

307.00 

336.64 

2.31 

2.34 

308.00 

338.96 

2.32 

2.35 

309.00 

341.28 

2.32 

2.37 

310.00 

343.61 

2.33 

2.39 

311.00 

345.95 

2.34 

2.40 

312.00 

348.30 

2.35 

2.42 

313.00 

350.67 

2.36 

2.44 

314.00 

353.03 

2.37 

2.45 

315.00 

355.41 

2.38 

2.47 

316.00 

357.80 

2.39 

2.48 

317.00 

360.20 

2.40 

2.50 

318.00 

362.60 

2.41 

2.52 

319.00 

365.02 

2.42 

2.53 

320.00 

367.44 

2.42 

2.55 

321.00 

369.88 

2.43 

2.57 

322.00 

372.32 

2.44 

2.59 

323.00 

374.7' 

2.45 

2.60 

324.00 

377. ?4 

2.46 

2.62 

325.00 

3VS./1 

2.47 

2.64 

326.00 

382.19 

2.48 

2.65 

327.00 

384.68 

2.49 

2.67 

328.00 

387.18 

2.50 

2.69 

329.00 

389.69 

2.51 

2.71 

• 

330.00 

392.20 

2.52 

2.72 

331.00 

394.73 

2.53 

2.74 

332.00 

397.27 

2.54 

2.76 

333.00 

399.82 

2.55 

2.78 

334.00 

402.37 

2.56 

2.79 

335.00 

404.94 

2.57 

2.81 

336.00 

407.51 

2.58 

2.83 

337.00 

410.10 

2.59 

2.85 

338.00 

412.69 

2.60 

2.87 

339.00 

415.30 

2.60 

2.88 

340.00 

417.91 

2.61 

2.90 

341.00 

420.53 

2.62 

2.92 

342.00 

423.17 

2.63 

2.94 

343.00 

425.81 

2.64 

2.96 

344.00 

428.46 

2.65 

2.98 

345.00 

431.12 

2.66 

2.99 

346.00 

433.79 

2.67 

3.01 

347.00 

436.48 

2.68 

3.03 

348.00 

439.17 

2.69 

3.05 

349.00 

441.87 

2.70 

3.07 

350.00 

444.58 

2.71 

3.09 

351.00 

447.30 

2.72 

3.11 

352.00 

450.03 

2.73 

3.13 

353.00 

452.77 

2.74 

3.14 

354.00 

455.52 

2.75 

3.16 

• 

355.00 

458.28 

2.76 

3.18 

356.00 

461.05 

2.77 

3.20 

357.00 

463.83 

2.78 

3.22 

358.00 

466.62 

2.79 

3.24 

359.00 

469.42 

2.80 

3.26 

360.00 

472.23 

2.81 

3.28 

361.00 

475.05 

2.82 

3.30 

362.00 

477.88 

2.83 

3.32 

363.00 

480.72 

2.84 

3.34 

364.00 

483.57 

2.85 

3.36 

365.00 

486.43 

2.86 

3.38 

366.00 

489.30 

2.87 

3.40 

367.00 

492.18 

2.88 

3.42 

368.00 

495.07 

2.89 

3.44 

369.00 

497.97 

2.90 

3.46 

370.00 

500.88 

2.91 

3.48 

371.00 

503.80 

2.92 

3.50 

372.00 

506.73 

2.93 

3.52 

373.00 

509.68 

2.94 

3.54 

374.00 

512.63 

2.95 

3.56 

375.00 

515.59 

2.96 

3.58 

376.00 

518.56 

2.97 

3.60 

377.00 

521.54 

2.98 

3.62 

378.00 

524.54 

2.99 

3.64 

G79.00 

527.54 

3.00 

3.66 

380.00 

530.55 

3.01 

3.68 

381.00 

533.58 

3.02 

3.71 

382.00 

536.61 

3.04 

3.73 

383.00 

539.66 

3.04 

3.75 

384.00 

542.71 

3.06 

3.77 

385.00 

545.78 

3.07 

3.79 

386.00 

548.85 

3.08 

3.81 

387.00 

551.94 

3.09 

3.83 

388.00 

555.04 

3.10 

3.85 

389.00 

558.15 

3.11 

3.88 

390.00 

561.27 

3.12 

3.90 

391.00 

564.39 

3.13 

3.92 

392.00 

567.53 

3.14 

3.94 

393.00 

570.69 

3.15 

3.96 

394.00 

573.85 

3.16 

3.99 

395.00 

577.02 

3.17 

4.01 

396.00 

580.20 

3.18 

4.03 

397.00 

583.39 

3.19 

4.05 

398.00 

586.60 

3.20 

4.07 

399.00 

589.81 

3.22 

4.10 

Appendix  B  - 


Altitude  vs.  PSi  Code  and  Equation 


Altitude  to  PSI  conversion  code  and  equation 


(  PRESSURE  TO  ALTITUDE  COVERSIOSI  TABLE  GENERATOR  AND  ) 

(  TABLE  IXX)KUP.  EQJATICN  IS  DERIVED  FROM  BEST  REGRESSION  ) 
(  FIT  TO  1.000.  ) 

(  S.  MIKITEN  12/28/88  ) 

ALSO  MATH 

DECIMAL 


:  WCRD.ARRAY 
CREATE 
4  *  ALLOT 
DCES> 

SWAP  4  *  +  ; 

4620  WORD.ARRAY  PSI.TO.ALT 


:  PSI.TO.ALTJGEN 
1052  590 
DO 

FEET  ) 

10  0 
DO 

I  I>F  10  I>F  F/ 

J  I>F  F+ 

FDUP 

CONVERSION  TO  PSI  ) 

"  68.94752"  FNUMBER? 

DROP 

F/ 

dlT  PSI  ) 

FDUP 

FIT  ) 


(  FROyi  590  P,MB  TO  1052  P,MB  ) 
(  GO  FROM  14000  FEET  TO  -1000 


(  GET  FRACTIONAL  VALUE  I  /  10  ) 

{  ADD  J  TO  FRACTIONAL  VALUE  ) 

(  DUPLICATE  FOR  USER  IN 

(  PUT  68.94752  INTO  F  STACK  ) 

(  DROP  RESULT  FRCM  FNUMBER?  ) 

(  DIVIDE  J+I/10  BY  68.94752  TO 

(  DUPLICATE  TO  USE  IN  REGRESSION 


’’  65631.615"  FNUMBER?  (  PUT  65631.615  INTO  F  STACK  ) 
DROP  (  DROP  RESULT  FRCM  FNUMBER?  ) 

FSWAP  (  SWAP  FOR  65631.615  PSI  ON  FP 

STACK) 

12649.672"  ENIUMBER?  (  PUT  12649.672  INTO  F  STACK  ) 


II 


DPDP 

F* 

F- 

PSI  ) 

FOVER 

FDUP 

p* 

"  1420.339"  FNUMBER? 
DROP 

p* 

F+ 

FOVER 

FDUP 

FDUP 

p* 

F* 

"  107.508"  FNUMBER? 

DROP 

F* 

F- 

FOVER 

FDUP 

mjp 

roup 

F* 

F* 

p* 

"  4.3969"  FNUMBER? 

DROP 

F* 

F+ 

FOVER 

EUUP 

ro? 

EDUP 

mjp 

F* 

F* 

F* 

F* 

"  .073447"  FNUMBER? 

DROP 

F* 


(  DROP  RESULT  FROM  FNUMBER?  ) 

(  MJLTIPLY  PSI  WITH  12649.672  ) 

(  ALT  =  65631.615  -  12649.672  * 

(  GET  A  COPY  OF  PSI  ) 

(  GET  ANOTHER  COPY  OF  PSI  ) 

(  PSI^2  ) 

(  PUT  1420.339  INTO  FP  STACK  ) 

{  DROP  RESULT  FRCM  FNUMBER?  ) 

(  ALT  =  ALT  +  1420.339  *  PSI"2  ) 
(  GET  A  COPY  OF  PSI  ) 

(  GET  ANOTHER  COPY  OF  PSI  ) 

(  GET  YET  ANOTHER  COPY  OF  PSI  ) 

(  RESULT  IS  ESIN'S  ) 

(  PUT  107.508  INTO  FP  STACK  ) 

(  DROP  RESULT  FRCM  FNUMBER?  ) 

(  ALT  =  ALT  -  107.508  *  PSI-^S  ) 


(  RESULT  IS  PSI"4  ) 

(  PUT  4.3969  INTO  FP  STAOO  ) 

(  DROP  RESULT  FRCM  FNUMBER?  ) 

(  ALT  =  ALT  -  4.3969  *  PSI^4  ) 


(  RESULT  IS  ESIN'S  ) 

(  PUT  .073447  INTO  FP  STACK  ) 


F-  ( 

F>I  ( 

INTEGER  ) 

J  10  *  I  +  ( 

5900  -  ( 

PSI.TO.ALT  ( 

W!  ( 

FDROP  ( 

FDROP  ( 

DOT 
LOT  ; 


ALT  =  ALT  -  .073447  *  PSI^5  ) 
GOWERT  FLOATING  POINT  VALUE  TO 

CAIOJIATE  OFFSET  INTO  ARRAY  ) 
OFFSET  FROM  5900  ) 

ADDRESS  OF  FPSI  ARRAY  ) 

STORE  ALT  INTO  FPSI  TABLE  ) 
ELIMINATE  PSI  ) 

ELIMINATE  P,MB  ) 


VARIABLE  PSI. TO. ALT. OFFSET 


:  PSI.TO.ALT_LOOKUP 
2048  SWAP  -  I>F  (  PUT 
"  136.53333"  ENUMBER? 
DROP 
F/ 

"  68.94752"  FNUMBER? 
STACK  ) 

DROP 

F* 

MILLIBARS  ) 

"  10.0"  FNUMBER? 

DROP 

F* 


PSI  ONTO  FLOATING  POINT  STACK  ) 

(  SCALE  A/D  VALUE  TO  PSI  -  2048/15  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  DIVIDE  A/D  BY  273.06666  ) 

(  PUT  PSI  TO  P,MB  OCNVERSTION  INTO  FP 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  MULT  BY  68.94752  FOR  PRESSURE  IN 

(  PUT  10  INTO  FP  STACK  ) 

(  DROP  RESULT  FRCM  FNUMBER?  ) 

(  MULTIPLY  BY  10  TO  OBTAIN  OFFSET 


VALUE  ) 

F>I 

5900  - 
TABLE  ) 

PSI.TO.ALT. OFFSET  @  + 
DUP  0  < 

IF  DROP  0  EXIT  THEN 

PSI.TO.ALT 

W@ 

■* 

) 


(  CVT  FRO^  FP  TO  INT  ) 

(  SUBTRACT  5900  FRCM  OFFSET  INTO  FPSI 

(  ADJUST  FOR  BASE  ALT.  ERROR  ) 

(  TEST  IF  RESULT  IS  LESS  THAN  ZERO  ) 

(  IF  TRUE,  MAKE  RESULT  =  0  ) 

(  THE  FPSI  ARRAY  ) 

(  FETCH  THE  VALUE  FRCM  THE  FPSI  TABLE 


Appendix  C  • 


Source  Code 


(  FLIGHT  PACK  11/13/89  ) 


(  READS  THE  VME  750  TIME  FROM  THE  NATIONAL  MM58274  REAL  TIME  CHIP  ) 
(  WRITE  A  1  AT  F20001  TO  START  THE  TIME  ) 

(  1/1/89  SM  ) 

HEX 

:  FIP  ; 

:  GET. YEARS  (  -  n  GETS  YEARS  FROM  VME  750  ) 

F2001B  C@  (  FETCH  TENS  ) 

OF  AND  (  AND  VALUE  ) 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F20019  C@  (  FETCH  UNITS  ) 

OF  AND 

+  ; 

:  GET. MONTHS  (  -  n  GETS  MONTHS  FROM  VME  750  ) 

F20017  C@  (  FETCH  TENS  ) 

OF  AND 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F20015  C@  (  FETCH  UNITS  ) 

OF  AND 

+  ; 

;  GET. DAY  (  -  n  GETS  THE  DAY  FROyi  THE  VME  750  ) 

F20013  C@  (  FETCH  TENS  ) 

OF  AND 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F20011  C@  (  FETCH  UNITS  ) 

OF  AND 

+  ; 

:  GET. HOURS  (  -  n  GETS  THE  HOURS  FRCM  THE  VME  750  ) 

F2000F  C@  (  FETCH  TENS  ) 

OF  AND 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F2000D  C@  (  FETCH  UNITS  ) 

OF  AND 

+  ; 

:  GET. MINUTES  (  -  n  GETS  THE  MINUTES  FRCM  THE  VME  750  ) 

F2000B  C@  (  FETCH  TENS  ) 

OF  AND 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F20009  C0  (  FETCH  UNITS  ) 

OF  AND 

+  ; 

:  GET. SECONDS  (  -  n  GETS  THE  SECONDS  FROM  THE  VME  750  ) 

F20007  C@  (  FETCH  TENS  ) 

OF  AND 

OA  *  (  MULTIPLY  IT  BY  10  ) 

F20005  C@  (  FETCH  UNITS  ) 

OF  AND 


:  GET. TENTHS. OF. SECOND  (  -  n  GETS  THE  1/lOTH  SECONDS  FROM  THE  VME  750  ) 
F20003  C@  (  FETCH  TENS  ) 

OF  AND 


:  GET. TIME  (-nnnnnnn  GETS  TIME  FROM  THE  VME750  BOARD  ) 
GET . TENTHS . OF . SECOND 
GET. SECONDS 
GET. MINUTES 
GET. HOURS 
GET. DAY 
GET. MONTHS 
GET. YEARS 


VARIABLE  SEPARATOR 

3A  SEPARATOR  C!  (  SET  SEPARATOR  TO  A  COLON  ) 

VARIABLE  BACKUP 
8  BACKUP  C!  (  BACKSPACE  ) 

:  SHOW. TIME  (nnnnnnn-  DISPLAYS  TIME  TO  THE  CURRENT  DEVICE  ) 
GET. TIME 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  BACKUP  C@  EMIT  SEPARATOR  C@  EMIT 

.  CR  ; 

DECIMAL 

:  START  GET. SECONDS  .  GET . TENTHS . OF . SECOND  .  CR  ; 

:  STOP  GET. SECONDS  .  GET . TENTHS . OF . SECOND  .  CR  ; 

:  TESTIT  1000  0  DO  1  IF  THEN  LOOP  ; 

:  BCM  START  TESTIT  STOP  ; 

HEX 


:  VME750. SET. TIME 


1 

F2001D 

C! 

( 

8 

F2001B 

C! 

( 

Q 

F20019 

C! 

( 

b 

F20017 

C! 

( 

6 

F20015 

C! 

( 

0 

F20013 

C! 

( 

1 

F20011 

C! 

( 

2 

F2000F 

C! 

( 

1 

F2000D 

C! 

( 

1 

F2000B 

C! 

{ 

7 

F20009 

C! 

( 

0 

F20007 

C! 

( 

0 

F20005 

C! 

( 

0 

F20003 

C! 

( 

1 

F20001 

C! 

( 

DAY  OF  WEEK  -  SUNDAY  ) 

TENS  OF  YEAR  -  89  ) 

DIGITS  OF  YEAR  -  89  ) 

TENS  OF  MONTH  -  JUNE  ) 

DIGITS  OF  MONTH  -  JUNE  ) 

TENS  OF  DAY  -  1  ) 

DIGITS  OF  DAY  -  1  ) 

TENS  OF  HOUR  -  21:  9  O'CLOCK  ) 
DIGITS  OF  HOUR  -  21:  9  O'CLOCK  ) 
TENS  OF  MINUTES  -  17  ) 

DIGITS  OF  MINUTES  -  17  ) 

TENS  OF  SECONDS  -  0  ) 

DIGITS  OF  SECONDS  -  0  ) 
lOTH'S  OF  SECOND  ) 

WRITE  A  1  TO  START  REAL  TIME  CLOCK 


) 


VME750. SET. TIME 


DECIMAL 


VARIABLE  OUT_SECONDS 
VARIABLE  OUTJDELAYl 
VARIABLE  OUT_DELAY2 
1000  OUT_DELAYl  ! 

410  OUT_DELAY2  ! 

0  OUT_SECONDS  ! 

:  OUT_DELAY 
OUTJDELAYl  @  0 
DO 

OUTJDELAY2  0  0 
DO 
LOOP 
LOOP 

OUT_SECONDS  0 
1+ 

OUT  SECONDS  ! 


(  PRESSURE  TO  ALTITUDE  COVERSION  TABLE  GENERATOR  AND  ) 

(  TABLE  LOOKUP.  EQUATION  IS  DERIVED  FROM  BEST  REGRESSION  ) 
(  FIT  TO  1,000.  ) 

(  S.  MIKITEN  12/28/88  ) 

ALSO  MATH 

DECIMAL 


:  WORD. ARRAY 
CREATE 

4  *  ALLOT 
DOES> 

SWAP  4  *  +  ; 

4620  WORD, ARRAY  PSI.TO.ALT 


(  FROM  590  P,MB  TO  1052  P,MB  ) 

(  GO  FROM  14000  FEET  TO  -1000  FEET  ) 


(  GET  FRACTIONAL  VALUE  I  /  10  ) 

(  ADD  J  TO  FRACTIONAL  VALUE  ) 

(  DUPLICATE  FOR  USER  IN  CONVERSION  TO  PSI  ) 
(  PUT  68.94752  INTO  F  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  DIVIDE  J+I/10  BY  68.94752  TO  GET  PSI  ) 

(  DUPLICATE  TO  USE  IN  REGRESSION  FIT  ) 

(  PUT  65631.615  INTO  F  STACK  ) 

{  DROP  RESULT  FROM  FNUMBER?  ) 

(  SWAP  FOR  65631.615  PSI  ON  FP  STACK) 

(  PUT  12649.672  INTO  F  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 


:  PSI.TO.ALT_GEN 
1052  590 
DO 

10  0 
DO 

I  I>F  10  I>F  F/ 

J  I>F  F+ 

FDUP 

"  68,94752"  FNUMBER? 

DROP 

F/ 

FDUP 

"  65631.615"  FNUMBER? 

DROP 

FSWAP 

"  12649.672"  FNUMBER? 
DROP 


F* 

F- 

FOVER 

FDUP 

F* 

"  1420.339"  FNUMBER? 

DROP 

F* 

F+ 

FOVER 

FDUP 

FDUP 

F* 

F* 

"  107.508"  FNUMBER? 

DROP 

F* 

F- 

FOVER 

FDUP 

FDUP 

FDUP 

F* 

F* 

F* 

"  4.3969"  FNUMBER? 

DROP 

F* 

F+ 

FOVER 

FDUP 

FDUP 

FDUP 

FDUP 

F* 

F* 

F* 

F* 

"  .073447"  FNUMBER? 

DROP 

F* 

F- 

F>I 

J  10  *  I  + 

5900  - 

PSI.TO.ALT 

W! 

FDROP 
FDROP 
LOOP 
LOOP  ; 


(  MULTIPLY  PSI  WITH  12649.672  ) 

(  ALT  =  65631.615  -  12649.672  *  PSI  ) 
(  GET  A  COPY  OF  PSI  ) 

(  GET  ANOTHER  COPY  OF  PSI  ) 

(  PS1'"2  ) 

(  PUT  1420.339  INTO  FP  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  ALT  =  ALT  +  1420.339  *  PSI ''2  ) 

(  GET  A  COPY  OF  PSI  ) 

(  GET  ANOTHER  COPY  OF  PSI  ) 

(  GET  YET  ANOTHER  COPY  OF  PSI  ) 

(  RESULT  IS  PSI^3  ) 

(  PUT  107.508  INTO  FP  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  ALT  =  ALT  -  107.508  *  PSI'^S  ) 


(  RESULT  IS  PSI"4  ) 

(  PUT  4.3969  INTO  FP  STACO  ) 

(  DROP  RESULT  FRCM  FNUMBER?  ) 

(  ALT  =  ALT  -  4.3969  *  PSI^4  ) 


(  RESULT  IS  ESIN'S  ) 

(  PUT  .073447  INTO  FP  STACK  ) 


{  ALT  =  ALT  -  .073447  *  PSI^5  ) 

(  CONVERT  FLOATING  POINT  VALUE  TO  INTEGER  ) 
(  CALCULATE  OFFSET  INTO  ARRAY  ) 

(  OFFSET  FRCM  5900  ) 

(  ADDRESS  OF  FPSI  ARRAY  ) 

(  STORE  ALT  INTO  FPSI  TABLE  ) 

(  ELIMINATE  PSI  ) 

(  ELIMINATE  P,MB  ) 


VARIABLE  PSI. TO. ALT. OFFSET 


PSI . TO . ALT_LOOKUP 

2048  SWAP  -  I>F  (  PUT  PSI  ONTO  FLOATING  POINT  STACK  ) 

"  136.53333"  FNUMBER?  (  SCALE  A/D  VALUE  TO  PSI  -  2048/15  ) 
DROP  (  DROP  RESULT  FROM  FNUMBER?  ) 


F/ 

"  68.94752"  FNUMBER? 

DROP 

F* 

"  10.0"  FNUMBER? 

DROP 

F* 

F>I 

5900  - 

PSI. TO. ALT. OFFSET  @  + 
DUP  0  < 

IF  DROP  0  EXIT  THEN 
PSI. TO. ALT 
W@ 


(  DIVIDE  A/D  BY  273.06666  ) 

(  PUT  PSI  TO  P,MB  CONVERSTION  INTO  FP  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  MULT  BY  68.94752  FOR  PRESSURE  IN  MILLIBARS  ) 
(  PUT  10  INTO  FP  STACK  ) 

(  DROP  RESULT  FROM  FNUMBER?  ) 

(  MULTIPLY  BY  10  TO  OBTAIN  OFFSET  VALUE  ) 

(  CVT  FROM  FP  TO  INT  ) 

(  SUBTRACT  5900  FROM  OFFSET  INTO  FPSI  TABLE  ) 

(  ADJUST  FOR  BASE  ALT.  ERROR  ) 

(  TEST  IF  RESULT  IS  LESS  THAN  ZERO  ) 

(  IF  TRUE,  MAKE  RESULT  =  0  ) 

(  THE  FPSI  ARRAY  ) 

(  FETCH  THE  VALUE  FROM  THE  FPSI  TABLE  ) 


FP 


:  LONG. ARRAY 
CREATE 

8  *  ALLOT 
DOES> 

SWAP  8  *  +  ; 

340  LONG. ARRAY  PSI . TO . AIRSPEED 
VARIABLE  PSI. TO. AIRSPEED. PTR 
0  PSI. TO. AIRSPEED. PTR  ! 

:  PSI. TO. AIRSPEED. GEN 

0.0069444  F*  (  CONVERT  TO  PSI  ) 

PSI. TO. AIRSPEED. PTR  @ 

PSI. TO. AIRSPEED  F! 

PSI. TO. AIRSPEED. PTR  0 
1+  PSI. TO. AIRSPEED. PTR  ! 


:  PSI. TO. AIRSPEED. LOOKUP 
-1  PSI. TO. AIRSPEED. PTR  ! 
BEGIN 

PSI. TO. AIRSPEED. PTR  0 
1+  PSI. TO. AIRSPEED. PTR  ! 
PSI. TO. AIRSPEED. PTR  0 
331  > 

IF 

0  FDROP  (  BCM  MOD  )  EXIT 
THEN 
FDUP 

PSI. TO. AIRSPEED. PTR  0 
PSI. TO. AIRSPEED  F0 
FSWAP  (  BCM  MOD  ) 

F> 

UNTIL 

FDROP 

PSI. TO. AIRSPEED. PTR  0 


(  CALCULATICNS  FOR  MAGNETOMETER  HEADING  ) 


FVARIABLE  L 
FVARIABLE  PT 
FVARIABLE  RL 
FVARIABLE  B1 
FVARIABLE  B2 
FVARIABLE  B3 
FVARIABLE  B 
FVARIABLE  SD 
FVARIABLE  CD 
FVARIABLE  TD 
FVARIABLE  D 
FVARIABLE  CZ 
FVARIABLE  SZ 
FVARIABLE  TZ 
FVARIABLE  Z 
FVARIABLE  MX 
FVARIABLE  MY 
FVARIABLE  MZ 


(  10.0  /  0.6  -  10  VOLTS/ 600  MILLIGAUSS  ) 

(  PT=[PI/180]*P  ) 

(  RL=[PI/180]*R  ) 

(  Bl^lAGNETOMETER  X  AXIS/L  ) 

(  B2=MAGNETOMETER  Y  AXIS/L  ) 

(  B3=MAGNETOMETER  Z  AXIS/L  ) 

(  B=SQRT[B1''2+B2''2+B3^2]  ) 

(  SD=[B3*SIN[PT]+tBl*SIN[RL]-B2*COS[RL] ]*COS[PT] ]/B  ) 

(  CD=SQRT[1-SD''2]  ) 

(  TD=SD/CD  ) 

(  D=ATAN[TD]  ) 

(  CZ=[B3-B*SIN[PT]*SIN[D] ]/[B*COS[PT] *COS[D]+. 000001]  ) 
(  SZ=[Bl*COS[RL]+B2*SIN[RL]]/[B*COS[D]]  ) 

(  TZ=SZ/[CZ+. 000001]  ) 

(  Z=ATAN[TZ]  ) 


:  GET_HEADING  {  R  P  |  } 

10.0  0.6  F/  L  F!  (  10.0 

PI  180.0  F/  P  I>F  F*  PT  F!  ( 

PI  180.0  F/  R  I>F  F*  RL  F!  ( 

MX  F@  L  F@  F/  B1  F!  ( 

MY  F0  L  F@  F/  B2  F!  ( 

MZ  F@  L  F@  F/  B3  F!  ( 

B1  F@  B1  F@  F* 

B2  F@  B2  F@  F* 

B3  F@  B3  F@  F* 

F+  F+  FSQRT  B  F! 

B3  F@  PT  F@  FSIN  F* 

B1  F@  RL  F0  FSIN  F* 

B2  F0  RL  F0  FCOS  F* 

F-  PT  F0  FCOS  F*  F+  B  F0  F/ 

SD  F!  (  SD=[B3*SIN[PT]+[B1*SIN[RL]-B2*C0S[RL] ]*COS[PT] ]/B  ) 

1.0  SD  F0  SD  F0  F*  F-  FSQRT  CD  F!  (  CD=SQRT [l-SD'^Z]  ) 

SD  F0  CD  F0  F/  TD  F!  {  TD=SD/CD  ) 

TD  F0  FATAN  D  F!  (  D=ATAN[TD]  ) 

B3  F0  B  F0  PT  F0  FSIN  D  F@  FSIN  F*  F*  F- 
B  F0  PT  F0  FCOS  D  F0  FCOS  F*  F*  0.000001  F+  F/ 

CZ  F!  (  CZ=lB3-B*SIN[PT]*SIN[D]]/lB*COS[PT]*COS[D]+. 000001]  ) 

B1  F0  RL  F0  FCOS  F* 

B2  F0  RL  F0  FSIN  F*  F+ 

B  F0  D  F0  FCOS  F*  F/ 

SZ  F!  (  SZ=[Bl*COS[RL]+B2*SIN[RL] ] /[B*COS[D] ]  ) 

SZ  F0  CZ  F@  0.000001  F+  F/ 

TZ  F!  (  TZ=SZ/tCZ+. 000001]  ) 

TZ  F0  FATAN  Z  F!  (  Z=ATAN[TZ]  ) 

CZ  F0 
0.0  F< 

IF 

Z  F@  PI  F+  Z  F!  (  IF  CZ  <  0  THEN  Z  =  Z  +  PI  ) 

ELSE 

SZ  F@ 

0.0  F< 


/  .6-10  VOLTS/ 600  MILLIGAUSS  ) 
PT=[PI/180]*P  ) 

RL=[PI/180]*R  ) 

B1=MX/L  ) 

B2=MY/L  ) 

B3=MZ/L  ) 


(  B=SQRTtB1^2+B2''2+B3''2]  ) 


IF 

Z  F@  PI  PI  F*  F+  Z  F!  (  IF  CZ  >  0  AND  SZ  <  0  THEN  Z  =  Z  +  PI*2  ) 
THEN 
THEN 

180.0  PI  F/  Z  F@  F*  (  AZIMUTH= [180/PI ]*Z  ) 

F>I 


INT 

(  LAST  UPDATE  9/27/88  ) 

(  BOARD  NAME:  MZ  8605  ) 

{  AUTHOR:  BOM  ) 

(  INPUT  GAIN  SET  TO  UNITY  ) 

(  SINGLE  ENDED  INPUT  ) 

(  +  -  5V  INPUT  LEVELS  ) 

HEX 

FFFEOO  CONSTANT  A/D. BASE. ADDRESS 

:  START. CONVERSION  (  -  STARTS  A  CONVERSION  -  VALUE  IGNORED  ) 

00  A/D. BASE. ADDRESS  W!  ; 

:  SELECT. CHANNEL  (  n  -  LOW  4  BITS  USED  OTHERS  IGNORED,  START  CONVERT  ) 
A/D. BASE. ADDRESS  2  +  (  ADD  TWO  TO  SET  PROPER  REGISTER  ) 

W!  (  WRITE  THE  CHANNEL  NUMBER  TO  THE  BOARD  AND  CONVERT  ) 


:  ANALOG. READ  (  -  n  GET  DIGITAL  VALUE  -  LOWER  12  ARE  VALID  ) 
A/D. BASE. ADDRESS  2  +  W®  ; 

;  INT. LEVEL. SELECT  (  n  -  SELECT  THE  INTERRUPT  LEVEL  ) 

A/D. BASE. ADDRESS  4  +  W!  DROP  (  WRITE  8  BITS  OF  16  BIT  VALUE  )  ; 

:  INT. ENABLE  (  n  -  ENABLE  INTERRUPTS  -  VALUE  IGNORED  ) 

A/D. BASE. ADDRESS  6  +  W!  (  SELECT  THE  PROPER  ADDRESS  AND  WRITE  ) 


:  INT. DISABLE  (  n  -  DISABLE  ALL  INTERRUPTS  -  VALUE  IGNORED  ) 
A/D. BASE. ADDRESS  8  +  W!  (  SELECT  PROPER  ADDRESS  AND  WRITE  ) 


:  CONVERT. DONE? 
BEGIN 

ANALOG. READ 
8000  AND 
8000  =  NOT 
UNTIL 

ANALOG. READ 
OFFF  AND 


(  OH#  -  n  CHECK  BIT  IN  ANALOG, READ  FOR  CIP  CLEARED  ) 

(  GET  VALUE  ON  STACK  ) 

(  AND  WITH  MOST  SIGNIFICANT  BIT  ) 

(  TEST  IF  HI  BIT  NOT  CLEARED  YET  ) 

(  CHECK  UPPER  BIT  TILL  NOT  SET  ) 

(  READ  FINAL  VALUE  ) 

(  MASK  OUT  BITS  12-15  ) 


DECIMAL 

0  CONSTANT  CHANNEL. ZERO 

1  CONSTANT  CHANNEL. ONE 

2  CONSTANT  CHANNEL. TWO 

3  CONSTANT  CHANNEL . THREE 


4  CONSTANT  CHANNEL. FOUR 

5  CONSTANT  CHANNEL, FIVE 

6  CONSTANT  CHANNEL. SIX 

7  CONSTANT  CHANNEL . SEVEN 

8  CONSTANT  CHANNEL . EIGHT 

9  CONSTANT  CHANNEL, NINE 

10  CONSTANT  CHANNEL. TEN 

:  READ. IT  (  n  -  n  CHANNEL  NUMBER  SELECTED,  VALUE  OUT  ) 
SELECT, CHANNEL 
CONVERT. DONE?  .  CR  ; 

:  TEST  (  n  -  CHANNEL  NUMBER  ) 

BEGIN 

DUP 

SELECT. CHANNEL 
CONVERT. DONE? 

.  CR 

?TERMINAL 

UNTIL 

DROP 


(  ARRAY  DEFINITION  WORDS  ) 

(  ARRAY  SIZE  LIMITED  TO  AVAILABLE  VARIABLE  SPACE  IN  MEMORY  ) 
(  LAST  UPDATE:  12/28/88  ) 

(  ARRAY  VARIABLES  HOLD  THE  BASE  ADDRESS  OF  EACH  ARRAY  ) 

VARIABLE  ARRAY. CH.O 
VARIABLE  ARRAY. CH.l 
VARIABLE  ARRAY. CH. 2 
VARIABLE  ARRAY. CH. 3 
VARIABLE  ARRAY. CH. 4 
VARIABLE  ARRAY. CH. 5 
VARIABLE  ARRAY. CH. 6 
VARIABLE  ARRAY. CH. 7 
VARIABLE  ARRAY. CH. 8 
VARIABLE  ARRAY, CH. 9 
VARIABLE  ARRAY. CH. 10 

VARIABLE  FILTER_DEPTH 
11  FILTER_DEPTH  ! 

VARIABLE  VTABLE 
FILTERJDEPTH  @2*4-  VALLOT 

VARIABLE  FIP_ARRAY_SIZE 
6  FIP_ARRAY_SIZE  ! 

VARIABLE  OUT_ARRAY_SIZE 
FIP_ARRAY_SIZE  @  11  +  OUT_ARRAY_SIZE  ! 

VARIABLE  VFIPl 

OUT_ARRAY_SIZE  0  1+  2  *  4  -  VALLOT 
VARIABLE  VFIP2 

OUT  ARRAY  SIZE  0  1+  2  *  4  -  VALLOT 


VARIABLE  FLIP_FLOP 
0  FLIP_FLOP  ! 

VARIABLE  AOI_CHECKSUM 
0  AOI_CHECKSUM  ! 

CHANNEL. ZERO  CONSTANT  ALTITUDE_SET_CHAN 
CHANNEL. ONE  CONSTANT  HEADING_SET_CHAN 
CHANNEL. FOUR  CONSTANT  ALTITUDE_CHAN 
CHANNEL. FIVE  CONSTANT  AIR_SPEED_CHAN 
CHANNEL. SIX  CONSTANT  PITCH_CHAN 
CHANNEL. SEVEN  CONSTANT  ROLLjCHAN 
CHANNEL. EIGHT  CONSTANT  Y_CHAN 
CHANNEL. NINE  CONSTANT  X_CHAN 
CHANNEL. TEN  CONSTANT  Z_CHAN 

0  CONSTANT  AIR_SPEED 

1  CONSTANT  ATTACK_ANGLE 

2  CONSTANT  VERTICALJ/ELOCITY 

3  CONSTANT  HEADING_DEVIATION 

4  CONSTANT  ROLL 

5  CONSTANT  PITCH 

6  CONSTANT  ALTITUDE_DEVIATION 

:  VBUBBLE  {  TOP  |  TEMP  —  }  (  BUBBLE  SORT  VTABLE  ) 

FILTER_DEPTH  @  TOP  1+ 

DO 

VTABLE  I  2  *  +  W@ 

VTABLE  TOP  2  *  +  W@  < 

IF 

VTABLE  TOP  2  *  +  W@  ->  TEMP 

VTABLE  I  2  *  +  W@  VTABLE  TOP  2  *  +  W! 

TEMP  VTABLE  I  2  *  +  W! 

THEN 
LOOP  ; 

:  VMEDIAN_FILTER  (  —  N  )  (  GET  THE  MEDIAN  OF  VTABLE  ) 

FILTER_DEPTH  @1-0 
DO 

I  VBUBBLE 
LOOP 

VTABLE  FILTER_DEPTH  @  2  /  2  *  +  W@  ; 

:  VTABLEFILL  (  —  )  (  FILL  VTABLE  WITH  KEYBOARD  VALUES  ) 

FILTER_DEPTH  @  0 
DO 

KEY  VTABLE  I  2  *  +  W! 

LOOP  ; 

;  VTABLEOUT  (  OUTPUT  THE  VTABLE  ) 

FILTER_DEPTH  @  0 
DO 

VTABLE  I  2  *  +  W@  . 

LOOP 
CR  ; 

:  WHICH. ARRAY  (  LOC  —  ADDR  )  (  STORES  AT  CORRECT  ARRAY  ADDRESS  ) 

FLIP  FLOP  0  0  = 


IF 

VFIPl 

ELSE 

VFIP2 

THEN 

SWAP  2  *  +  W! 


GET. WHICH. ARRAY  (  LOG  —  N  )  (  FETCHES  FROM  CORRECT  ARRAY  ) 

FLIP_FLOP  @  0  = 

IF 

VFIPl 

ELSE 

VFIP2 

THEN 

SWAP  2  *  +  W@ 


:  AOI. WHICH. ARRAY 
FLIP_FLOP  0  0  = 
IF 

VFIPl 

ELSE 

VFIP2 

THEN 

SWAP  2  *  + 

DUP 

C@  SWAP  1+  C@ 


LOC  —  N  N  )  (  FETCHES  FROM  CORRECT  ARRAY  ) 

(  GET  ADDRESS  OF  VFIPl  ) 

(  GET  ADDRESS  OF  VFIP2  ) 

(  GENERATE  OFFSET  ADDRESS  ) 

(  DUPLICATE  ADDRESS  ) 

(  PUT  HIGH  AND  LOW  BYTE  ONTO  STACK  ) 


:  GET_ALTITUDE_SET  (  —  ) 

FILTER_DEPTH  0  0  DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
ALTITUDE_SET_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
2048  SWAP 

I>F  (  PUT  HEADING  ONTO  FLOATING  POINT  STACK  ) 

"  6.202148438"  FNUMBER?  (  PUT  COUNTS  PER  VOLT  INTO  FP  STACK  ) 
DROP  (  DROP  RESULT  FRCM  FNUMBER?  ) 

F*  (  MULTIPLY  TO  GET  THOUSANDS  OF  FEET  ) 

F>I  (  CONVERT  RESULT  TO  INTEGER  ) 


:  GET_RAW_AIR_SPEED  (  —  AIR  SPEED  ) 

FILTER_DEPTH  0  0  DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
AIR_SPEED_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN  FILTER 


GET  AIR  SPEED  ( 


) 


GET_RAW_AIR_SPEED 
642  - 

DUP  2048  >  IF  DROP  2048  THEN 
DUP  0  <  IF  DROP  0  THEN 
I>F  409.6  F/  5.0  FSWAP  F- 
PSI . TO . AIRSPEED . LOOKUP 
I>F  12.41  F*  F>I 
AIR  SPEED  WHICH. ARRAY 


:  GET_ATTACK_ANGLE 

0  ATTACK  ANGLE  WHICH. ARRAY 


VARIABLE  VERTICAL_VELOCITY_SECONDS 
VARIABLE  VERTICAL_VELOCITY_FLAG 
VARIABLE  VERTICAL_VELOCITY_ALTITUDE 
0  VERTICAL_VELOCITY_FLAG  ! 

VARIABLE  CURRENT_VERTICAL_VELOCITY 
0  CURRENT_VERTICAL_VELOCITY  ! 

:  GET_VERTICAL_VELOCITY 
VERTICAL_VELOCITY_FLAG  0  0  = 

IF 

OUT_SECONDS  @  5  + 
VERTICAL_VELOCITy_SECONDS  ! 

1  VERTICAL_VELOCITY_FLAG  ! 
FILTER_DEPTH  0  0 

DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
ALTITUDE_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
PSI . TO . ALT_LOOKUP 
VERTICAL_VELOCITY_ALTITUDE  ! 

ELSE 

OUT_SECONDS  0 

VERTICAL_VELOCITY_SECONDS  0 
IF 

FILTER_DEPTH  0  0 

DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
ALTITUDE_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
PSI . TO . ALT_LOOKUP 
VERTICAL_VELOCITY_ALTITUDE  @ 

I>F 

12.0  F*  F>I 
DUP 

2048  > 

IF 

DROP 

2048 


THEN 

DUP 

-2048  < 

IF 

DROP 
-2048 
THEN 
2048  + 

CURRENT_VERTICAL_VELOCITY  ! 
0  V’ERTICAL_VELOCITY_FLAG  ! 
THEN 
THEN 

CURRENT_VERTICAL_VELOCITY  @ 
VERTICAL  VELOCITY  WHICH. ARRAY 


GET_HEADING_SET  (  —  ) 

FILTER_DEPTH  @  0 

DO  (  GE"^  FILTER_DEPTH  SAMPLES  ) 

HEADING_.  .T_CHAN  SELECT .  CHANNF.L 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
2048  SWAP 

I>F  (  PUT  HEADING  ONTO  FLOATING  POINT  STACK  ) 

"  0.17578125"  FNUMBER?  (  PUT  COUNTS  PER  VOLTS  INTO  FP  STACK  ) 
DROP  (  DROP  RESULT  FROti  FNUMBER?  ) 

F*  (  MULTIPLY  TO  GET  DEGREES  ) 

F>I  (  CONVERT  RESULT  TO  INTEGER  ) 


GET_X  (  —  N  ) 

FILTERJDEPTH  @  0  DO  (  GET  FILTERJDEPTH  SAMPLES  ) 
X_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
DUP  I>F 
2048  < 

IF 

"  204.8"  FNUMBER?  DROP  F/ 

"  10.0"  FNUMBER?  DROP  F- 
ELSE 

"  2048.0"  FNUMBER?  DROP  F- 
"  204.8"  FNUMBER?  DROP  F/ 

THEN 
MX  F! 


GET_Y  (  —  N  ) 

FILTER_DEPTH  @  0  DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
Y_CHAN  SELECT. CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 


VMEDIAN_FILTER 
DUP  I>F 
2048  < 

IF 

”  204.8"  FNUMBER?  DROP  F/ 

"  10.0"  FNUMBER?  DROP  F- 
ELSE 

"  2048.0"  FNUMBER?  DROP  F- 
"  204.8"  FNUMBER?  DROP  F/ 
THEN 
MY  F! 


:  GET_Z  (  —  N  ) 

FILTER_DEPTH  0  0  DO  (  GET  FILTERJDEPTH  SAMPLES  ) 
Z_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 
DUP  I>F 
2048  < 

IF 

"  204.8"  FNUMBER?  DROP  F/ 

"  10.0"  FNUMBER?  DROP  F- 
ELSE 

"  2048.0"  FNUMBER?  DROP  F- 
"  204.8"  FNUMBER?  DROP  F/ 

THEN 
MZ  F! 


FP 

VARIABLE  STATIC_ROLL 
VARIABLE  MAX_LEFT_ROLL 
VARIABLE  MAX_RIGHT_ROLL 
FVARIABLE  LEFT_DEGREES 
FVARIABLE  RIGHT_DEGREES 

2.7  (  STATIC  ROLL  VOLTAGE  ) 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -10  TO  lOV  ) 
STATIC_ROLL  ! 

0.0  (  MAX  BANK  LEFT  VOLTAGE  0  V  ) 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -10  TO  lOV  ) 
MAX_LEFT_ROLL  ! 

7.4  (  MAX  RIGHT  ROLL  VOLTAGE  ) 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -lOV  TO  lOV  ) 
MAX_RIGHT_ROLL  ! 

STATIC_ROLL  0 
MAX_LEFT_ROLL  @ 

-  I>F  2048.0  FSWAP  F/ 

LEFT__DEGREES  F!  (  GET  SCALING  IN  DEGREES  ) 

MAX_RIGHT_ROLL  0 
STATIC_ROLL  0 

-  I>F  2048.0  FSWAP  F/ 


RIGHT  DEGREES  F! 


(  GET  SCALING  IN  DEGREES  ) 


;  GET_ROLL  (  —  ) 

FILTER_DEPTH  @  0 

DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
ROLL_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 

DUP 

STATIC_ROLL  0  - 

0  < 

IF 

MAX_LEFT_ROLL  @  -  I>F 
LEFT_DEGREES  F@  F* 

F>I 

ELSE 

STATIC_ROLL  0  -  I>F 
RIGHT_DEGREES  F0  F* 

F>I 

2048  + 

THEN 

DUP 

ROLL  WHICH. ARRAY 
DUP 

2048  > 

IF 

2048  - 
THEN 
I>F 

"  29.25714286"  FNUMBER?  DROP 
F/ 

F>I 

ROLL  GET. WHICH. ARRAY 
2048  < 

IF 

DUP 

0  > 

IF 

70  SWAP  - 
THEN 
ELSE 
-1  * 

THEN 


VARIABLE  STATIC_PITCH 
VARIABLE  MAX_DIVE_PITCH 
VARIABLE  MAX_CLIMB_PITCH 
FVARIABLE  DIVE_DEGREES 
FVARIABLE  CLIMB_DEGREES 

2.73  (  STATIC  PITCH  VOLTAGE  ) 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -10  TO  lOV) 
STATIC_PITCH  ! 

6.8  (  MAX  PITCH  DIVE  VOLTAGE  ) 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -10  TO  lOV  ) 


MAXJDIVE  PITCH  ! 

0.0 

204.8  F*  2048.0  F+  F>I  (  SCALE  ON  0-4096  OR  -10  TO  lOV  ) 
MAX_CLIMB_PITCH  ! 

STATIC_PITCH  @ 

MAX_CLIMB_PITCH  @ 

-  I>F  2048.0  FSWAP  F/ 

CLIMBJDEGREES  F!  (  GET  SCALING  IN  DEGREES  ) 

MAX_DIVE_PITCH  0 
STATIC_PITCH  0 

-  I>F  2048.0  FSWAP  F/ 

DIVE_DEGREES  F!  (  GET  SCALING  IN  DEGREES  ) 

:  GET_PITCH  (  —  ) 

FILTER_DEPTH  0  0 

DO  (  GET  FILTER_DEPTH  SAMPLES  ) 

PITCH_CHAN  SELECT. CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN_FILTER 

DUP 

STATIC_PITCH  0  - 
0  < 

IF 

MAX_CLIMB_PITCH  0  -  I>F 
CLIMB_DEGREES  F0  F* 

F>I 

ELSE 

STATIC_PITCH  0  -  I>F 
DIVE_DEGREES  F0  F* 

F>I 

2048  + 

THEN 

DUP 

PITCH  WHICH. ARRAY 

DUP 

2048  > 

IF 

2048  - 
THEN 
I>F 

"  37,23636364"  FNUMBER?  DROP 
F/ 

F>I 

PITCH  GET. WHICH. ARRAY 
2048  < 

IF 

DUP 
0  > 

IF 

55  - 

THEN 
THEN 


1 


INT 


R  P  “  N  ) 


GET_HEADING_DEVIATION  ( 

GET_X 

GET_Y 

GET_Z 

GET_HEADING 
GET  HEADING  SET 


360  MOD 
180  SWAP  - 

HEADING  DEVIATION  WHICH. ARRAY 


:  GET_ALTITUDE  (  —  ) 

FILTER_DEPTH  @  0 

DO  (  GET  FILTER_DEPTH  SAMPLES  ) 
ALTITUDE_CHAN  SELECT . CHANNEL 
CONVERT. DONE? 

VTABLE  I  2  *  +  W! 

LOOP 

VMEDIAN  FILTER 


VARIABLE  PSI.TO.ALT.PTR 
FP 


GET . PSI . TO . ALT . OFFSET 
-1  PSI.TO.ALT.PTR  ! 
BEGIN 
DUP 


PSI.TO.ALT.PTR  @ 
1+  DUP 

PSI.TO.ALT.PTR  ! 
PSI. TO. ALT  W@ 

> 


UNTIL 

DROP 

PSI.TO.ALT.PTR  0  1- 
GET_ALTITUDE 
2048  SWAP  -  I>F 

136.53333  F/  (  2048  /  15  PSI  =  136.5333  ) 
68.94752  F*  (  PSI  TO  P,MB  ) 

10.0  F* 

F>I 
5900  - 


PSI. TO. ALT. OFFSET  ! 


INT 

:  GET_ALTITUDE_DEVIATION  (  —  ) 
GET_ALTITUDE_SET 
GET  ALTITUDE 


DUP 


2048  > 

IF 

DROP 

2048 

THEN 

DUP 

-2048  < 

IF 

DROP 
-2048 
THEN 
2048  + 

ALTITUDE  DEVIATION  WHICH. ARRAY 


:  PUT_ARRAY  (  LOG  —  ) 

FIP  ARRAY  SIZE  @  1+  +  WHICH. ARRAY 


:  ACQUIRE_FIP  (  —  ) 

FLIP_FLOP  0  0  = 

IF 

1  FLIP_FLOP  ! 

ELSE 

0  FLIP_FLOP  ! 

THEN 

GET_RDLL 

DUP  ROLLJCHAN  PUTJVRRAY 
GET_PITCH 

DUP  PITCH_CHAN  PUT_ARRAY 
GET_HEADING_DEVIATION 
GET_ALTITUDE_DEVIATION 
GET_AIR_SPEED 
GET_ATTACK_ANGLE 
GET_VERTICAL_VELOCITY 
GET_ALTirvJDE_SET 

ALTITUDE_SET_CHAN  PUT_ARRAY 
GET_HEADING_SET 

HEADING_SET_CHAN  PUT_ARRAY 
GET_ALTITUDE 

ALTITUDE_CHAN  PUT_ARRAY 
GET_RAW_AIR_SPEED 

AIR_SPEED_CHAN  PUT_ARRAY 
MX  F@  F>I  X_CHAN  PUT_ARRAY 
MY  F@  F>I  y_CHAN  PUT_ARRAY 
M2  F@  F>I  Z_CHAN  PUT_ARRAY 
0  CHANNEL. TWO  PUT_ARRAY 
0  CHANNEL. THREE  PUT  ARRAY 


(  SET  UP  A  SEPARATE  USER  AREA  FOR  AN  EXTRA  TERMINAL  LINE  ) 

(  REFER  TO  MANUALS  ON  TERMINAL,  BUILD,  AND  ACTIVATE  ) 

(  1/1/89  SM  ) 

1  CONSTANT  CHANNEL. 1 

1000  2000  TERMINAL  FIP_OUT  (  THE  TERMINAL  ) 

CHANNEL. 1  FIPJOUT  BUILD  (  SET  UP  USER  AREA  FOR  CHANNEL  1  ) 


VARIABLE  AKEY 


:  FIP_AOI_TASK  (  —  ) 

BEGIN 

AKEY  #1  EXPECT  (  WAIT  FOR  A  SINGLE  KEY  PRESS  ) 

AKEY  0  16777216  /  (  SHIFT  RIGHT  TO  GET  8  BIT  CHAR  VALUE  ) 

2  = 

IF 

0  AOI_CHECKSUM  ! 

0  1  <#  HOLD  #>  TYPE  (  OUTPUT  SOH  ) 

0 

FIP_ARRAY_SIZE  @1+0 
DO 


I  AOI. WHICH. ARRAY 

2DUP  (  DUPLICATE  HIGH  AND  LOW  BYTES  ) 

AOI_CHECKSUM  @  (  GET  VALUE  OF  AOI_CHECKSUM  ) 

+  +  AOI_CHECKSUM  !  (  ADD  HIGH  AND  LOW  BYTES  TO  AOI_CHECKSUM  ) 

LOOP 

65280  AND  256  / 

255  AND 

(  OUTPUT  AIRSPEED  ) 

(  OUTPUl  ANGLE  OF  ATTACK  -  NOT  USED  ) 

(  OUTPUT  VERTICAL  VELOCITY  ) 

(  OUTPUT  HEADING  DEVIATION  ) 

(  OUTPUT  ROLL  ANGLE  ) 

(  OUTPUT  PITCH  ANGLE  ) 

(  OUTPUT  ALTITUDE  DEVIATION  ) 

(  OUTPUT  CHECKSUM  ) 

(  OUTPUT  ETX  ) 


AOI_CHECKSUM  0 
AOI_CHECKSUM  0 
<#  HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD 
HOLD  HOLD  #>  TYPE 
<#  HOLD  #>  TYPE 


0  3 
THEN 
AGAIN 

;  (  LOOP  FOREVER  ) 


:  FIP_OUT_TASK  (  —  ) 
ACTIVATE 
ACQUIRE_FIP 
BEGIN 

OUT_DELAY 

OUT_ARRAY_SIZE  @1+0 
DO 

I  GET. WHICH. ARRAY  . 
LOOP 
CR 

ACQUIRE_FIP 

AGAIN 

;  (  LOOP  UNTIL  KEYPRESS  ) 


FP 


0.0  PSI. TO. AIRSPEED. GEN 
.003598  PSI. TO. AIRSPEED. GEN 
.013332  PS I. TO. AIRSPEED. GEN 
.030262  PSI. TO. AIRSPEED. GEN 
.053964  PSI. TO, AIRSPEED. GEN 
.084437  PSI. TO. AIRSPEED. GEN 
.122106  PSI. TO. AIRSPEED. GEN 


.165911  PSI. TO. AIRSPEED. GEN 
.216912  PSI. TO. AIRSPEED. GEN 
.274050  PSI. TO. AIRSPEED. GEN 
.338383  PSI. TO. AIRSPEED. GEN 
.409488  PSI. TO. AIRSPEED. GEN 
.487365  PSI. TO. AIRSPEED. GEN 
.571802  PSI. TO. AIRSPEED. GEN 
.663646  PSI. TO. AIRSPEED. GEN 
.761415  PSI. TO. AIRSPEED. GEN 
.866591  PSI. TO. AIRSPEED. GEN 
.978327  PSI. TO. AIRSPEED. GEN 
1.09684  PSI. TO. AIRSPEED. GEN 
1.22233  PSI. TO. AIRSPEED. GEN 
1.35438  PSI. TO. AIRSPEED. GEN 
1.49363  PSI. TO. AIRSPEED. GEN 
1.63880  PSI. TO. AIRSPEED. GEN 
1.79159  PSI. TO. AIRSPEED. GEN 

I. 95073  PSI. TO. AIRSPEED. GEN 
2.11685  PSI. TO. AIRSPEED. GEN 
2.28954  PSI. TO. AIRSPEED. GEN 
2.46899  PSI. TO. AIRSPEED. GEN 
2.65585  PSI. TO. AIRSPEED. GEN 
2.84843  PSI. TO. AIRSPEED. GEN 
3.04883  PSI. TO. AIRSPEED. GEN 
3.25559  PSI. TO. AIRSPEED. GEN 
3.46890  PSI. TO. AIRSPEED. GEN 
3.68941  PSI. TO. AIRSPEED. GEN 
3.91648  PSI. TO. AIRSPEED. GEN 
4.14990  PSI. TO. AIRSPEED. GEN 
4.39115  PSI. TO. AIRSPEED. GEN 
4.63896  PSI. TO. AIRSPEED. GEN 
4.89248  PSI. TO. AIRSPEED. GEN 
5.15362  PSI. TO. AIRSPEED. GEN 
5.42154  PSI. TO. AIRSPEED. GEN 
5.69686  PSI. TO. AIRSPEED. GEN 
5.97831  PSI. TO. AIRSPEED. GEN 
6.26675  PSI. TO. AIRSPEED. GEN 
6.56175  PSI. TO. AIRSPEED. GEN 
6.86374  PSI. TO. AIRSPEED. GEN 
7.17249  PSI. TO. AIRSPEED. GEN 
7.48781  PSI. TO. AIRSPEED. GEN 
7.81032  PSI. TO. AIRSPEED, GEN 
8.140U3  PSI. TO. AIRSPEED. GEN 
8.47587  PSI. TO. AIRSPEED. GEN 
8.81891  PSI. TO, AIRSPEED. GEN 
9.16893  PSI. TO. AIRSPEED, GEN 
9.52552  PSI. TO, AIRSPEED, GEN 
9.88908  PSI. TO, AIRSPEED. GEN 
10.2590  PSI. TO. AIRSPEED. GEN 
10.6359  PSI. TO. AIRSPEED. GEN 

II. 0202  PSI. TO, AIRSPEED. GEN 
11.4115  PSI. TO. AIRSPEED. GEN 
11.8083  PSI. TO. AIRSPEED. GEN 
12.2129  PSI, TO. AIRSPEED. GEN 
12.6241  PSI. TO, AIRSPEED. GEN 
13.0431  PSI. TO. AIRSPEED, GEN 
13.4678  PSI. TO. AIRSPEED. GEN 
13.8995  PSI. TO. AIRSPEED. GEN 


14.3384  PSI. TO. AIRSPEED. GEN 
14.7845  PSI. TO. AIRSPEED. GEN 
15.2368  PSI. TO. AIRSPEED. GEN 
15.6962  PSI. TO. AIRSPEED. GEN 
16.1624  PSI. TO. AIRSPEED. GEN 
16.6352  PSI. TO. AIRSPEED. GEN 
17.1158  PSI. TO. AIRSPEED. GEN 
17.6029  PSI. TO. AIRSPEED. GEN 
18.0964  PSI. TO. AIRSPEED. GEN 
18.5971  PSI. TO. AIRSPEED. GEN 
19.1046  PSI. TO. AIRSPEED. GEN 
19.6201  PSI. TO. AIRSPEED. GEN 
20.1409  PSI. TO. AIRSPEED. GEN 
20.6691  PSI. TO. AIRSPEED. GEN 
21.2045  PSI. TO. AIRSPEED. GEN 
21.7471  PSI. TO. AIRSPEED. GEN 
22.2963  PSI. TO. AIRSPEED. GEN 
22.8522  PSI. TO. AIRSPEED. GEN 
23.4151  PSI. TO. AIRSPEED. GEN 
23.9846  PSI. TO. AIRSPEED. GEN 
24.5619  PSI. TO. AIRSPEED. GEN 
25.1459  PSI. TO. AIRSPEED. GEN 
25.7364  PSI. TO. AIRSPEED. GEN 
26.3338  PSI. TO. AIRSPEED. GEN 
26.9386  PSI. TO, AIRSPEED. GEN 
27.5500  PSI. TO. AIRSPEED. GEN 
28.1690  PSI. TO. AIRSPEED. GEN 
28.7941  PSI. TO. AIRSPEED. GEN 
29.4268  PSI. TO. AIRSPEED. GEN 
30.0664  PSI. TO. AIRSPEED. GEN 
30.7129  PSI. TO. AIRSPEED. GEN 
31.3664  PSI. TO. AIRSPEED. GEN 
32.0266  PSI. TO, AIRSPEED. GEN 
32.6936  PSI. TO. AIRSPEED. GEN 
33.3685  PSI. TO. AIRSPEED. GEN 
34,0493  PSI. TO. AIRSPEED. GEN 
34.7379  PSI. TO. AIRSPEED. GEN 
35.4333  PSI. TO. AIRSPEED. GEN 
36.1357  PSI. TO. AIRSPEED. GEN 
36.8450  PSI, TO. AIRSPEED. GEN 
37.5612  PSI. TO. AIRSPEED. GEN 
38,2853  PSI. TO. AIRSPEED, GEN 
39.0152  PSI. TO. AIRSPEED. GEN 
39.7529  PSI, TO. AIRSPEED, GEN 
40.4976  PSI. TO, AIRSPEED. GEN 
41.2493  PSI. TO. AIRSPEED, GEN 
42.0078  PSI. TO. AIRSPEED, GEN 
42.7740  PSI. TO. AIRSPEED, GEN 
43.5467  PSI. TO. AIRSPEED, GEN 
44.3269  PSI. TO. AIRSPEED. GEN 
45.1131  PSI. TO. AIRSPEED, GEN 
45.9073  PSI, TO. AIRSPEED. GEN 
46,7085  PSI. TO. AIRSPEED. GEN 
47.5167  PSI. TO. AIRSPEED. GEN 
48.3325  PS I. TO. AIRSPEED. GEN 
49.1544  PS I. TO. AIRSPEED. GEN 
49,9844  PSI. TO. AIRSPEED. GEN 
50,8212  PSI. TO. AIRSPEED. GEN 


51.6643  PSI. TO, AIRSPEED. GEN 
52.5150  PSI, TO. AIRSPEED. GEN 
53.3737  PSI. TO. AIRSPEED. GEN 
54,2386  PSI. TO. AIRSPEED. GEN 
55.1107  PSI. TO. AIRSPEED. GEN 
55.9904  PSI. TO. AIRSPEED. GEN 
56.8774  PSI. TO. AIRSPEED. GEN 
57.7710  PSI. TO. AIRSPEED. GEN 
58.6717  PSI. TO. AIRSPEED. GEN 
59.5800  PSI. TO. AIRSPEED. GEN 
60.4952  PSI, TO. AIRSPEED. GEN 
61.4175  PSI. TO. AIRSPEED, GEN 
62.3471  PSI, TO. AIRSPEED. GEN 
63.2844  PSI. TO. AIRSPEED. GEN 
64.2282  PSI. TO. AIRSPEED. GEN 
65.1797  PSI. TO. AIRSPEED. GEN 
66.1381  PSI. TO. AIRSPEED. GEN 
67.1035  PSI. TO. AIRSPEED. GEN 
68.0762  PSI. TO. AIRSPEED. GEN 
69.0566  PSI, TO. AIRSPEED. GEN 
70.0447  PSI. TO. AIRSPEED. GEN 
71.0391  PSI. TO. AIRSPEED. GEN 
72.0411  PSI. TO. AIRSPEED. GEN 
73.0501  PSI. TO. AIRSPEED. GEN 
74.0665  PSI. TO. AIRSPEED. GEN 
74.0899  PSI. TO. AIRSPEED. GEN 
76.1212  PSI. TO. AIRSPEED. GEN 
77.1598  PSI. TO. AIRSPEED. GEN 
78.2056  PSI. TO. AIRSPEED. GEN 
79.2576  PSI. TO. AIRSPEED. GEN 
80.3187  PSI. TO. AIRSPEED, GEN 
81.3861  PSI. TO. AIRSPEED. GEN 
82,4607  PSI. TO. AIRSPEED, GEN 
83.5434  PSI. TO. AIRSPEED. GEN 
84.6630  PSI. TO. AIRSPEED. GEN 
85.7294  PSI, TO. AIRSPEED. GEN 
86.8337  PSI. TO. AIRSPEED. GEN 
87.9462  PSI, TO. AIRSPEED. GEN 
89.0650  PSI. TO, AIRSPEED. GEN 
90.1911  PSI. TO. AIRSPEED. GEN 
91.3253  PSI. TO. AIRSPEED. GEN 
92,4658  PSI. TO. AIRSPEED. GEN 
93,6147  PSI. TO. AIRSPEED. GEN 
94.7705  PSI. TO. AIRSPEED. GEN 
95.9340  PSI. TO. AIRSPEED. GEN 
97.1054  PSI. TO. AIRSPEED. GEN 
98.2835  PSI. TO. AIRSPEED. GEN 
99.4696  PSI. TO. AIRSPEED. GEN 
100.662  PSI. TO. AIRSPEED. GEN 
101.863  PSI. TO. AIRSPEED. GEN 
103,071  PSI. TO. AIRSPEED. GEN 
104.287  PSI. TO. AIRSPEED. GEN 
105.510  PSI. TO. AIRSPEED. GEN 
106.741  PSI. TO. AIRSPEED. GEN 
107,978  PSI. TO. AIRSPEED. GEN 
109.224  PST. TO. AIRSPEED. GEN 
110.478  PSI. TO. AIRSPEED. GEN 
111.738  PSI. TO. AIRSPEED. GEN 


113.006  PSI, TO. AIRSPEED. GEN 
114.282  PSI. TO. AIRSPEED. GEN 
115.565  PSI. TO. AIRSPEED. GEN 
116.856  PSI. TO. AIRSPEED. GEN 
118.155  PSI. TO. AIRSPEED. GEN 
119.460  PSI. TO. AIRSPEED. GEN 
120.774  PSI. TO. AIRSPEED. GEN 
122.096  PSI. TO. AIRSPEED. GEN 
123.424  PSI. TO. AIRSPEED. GEN 
124.761  PSI. TO. AIRSPEED. GEN 
126.105  PSI. TO. AIRSPEED. GEN 
127.456  PSI. TO. AIRSPEED. GEN 
128.816  PSI. TO. AIRSPEED. GEN 
130.183  PSI. TO. AIRSPEED. GEN 
130.557  PSI. TO. AIRSPEED. GEN 
132.939  PSI. TO. AIRSPEED. GEN 
134.330  PSI. TO. AIRSPEED. GEN 

135.727  PSI. TO. AIRSPEED. GEN 
137.133  PSI. TO. AIRSPEED. GEN 
138.546  PSI. TO. AIRSPEED. GEN 
139.967  PSI. TO. AIRSPEED. GEN 
141.396  PSI. TO. AIRSPEED. GEN 
142.832  PSI. TO. AIRSPEED. GEN 
144.276  PSI. TO. AIRSPEED. GEN 

145.728  PSI. TO. AIRSPEED. GEN 
147.187  PSI. TO. AIRSPEED. GEN 
148.655  PSI. TO. AIRSPEED. GEN 
150.130  PSI. TO. AIRSPEED. GEN 
151.613  PSI. TO. AIRSPEED. GEN 
153.103  PSI. TO. AIRSPEED. GEN 
154.602  PSI. TO. AIRSPEED. GEN 
156.108  PSI. TO. AIRSPEED. GEN 
157.623  PSI. TO. AIRSPEED. GEN 
159.145  PSI. TO. AIRSPEED. GEN 
160.675  PSI. TO. AIRSPEED. GEN 
162.213  PSI. TO. AIRSPEED. GEN 
163.759  PSI. TO. AIRSPEED. GEN 
165.312  PSI. TO. AIRSPEED. GEN 
166.874  PSI. TO. AIRSPEED. GEN 
168.443  PSI. TO. AIRSPEED. GEN 
170.020  PSI. TO. AIRSPEED. GEN 
171.606  PSI. TO. AIRSPEED. GEN 
173.199  PSI. TO. AIRSPEED. GEN 
174.800  PSI. TO. AIRSPEED. GEN 
176.410  PSI. TO. AIRSPEED. GEN 
178.027  PSI. TO. AIRSPEED. GEN 
179.652  PSI. TO. AIRSPEED. GEN 
181.285  PSI. TO. AIRSPEED. GEN 
182.927  PSI. TO. AIRSPEED. GEN 
184.576  PSI. TO. AIRSPEED. GEN 
186.233  PSI. TO. AIRSPEED. GEN 
187.898  PSI. TO. AIRSPEED. GEN 
189.572  PS I. TO. AIRSPEED. GEN 
191.252  PSI. TO. AIRSPEED. GEN 
192.942  PSI. TO. AIRSPEED. GEN 
194.640  PS I. TO. AIRSPEED. GEN 
196.346  PSI. TO. AIRSPEED. GEN 
198.059  PSI. TO. AIRSPEED. GEN 


199.781  PSI. TO. AIRSPEED, GEN 
201.511  PSI. TO, AIRSPEED. GEN 
203.250  PSI. TO, AIRSPEED. GEN 
204.996  PSI, TO. AIRSPEED. GEN 
206.750  PSI. TO, AIRSPEED, GEN 
208.513  PSI. TO. AIRSPEED. GEN 
210.284  PSI. TO. AIRSPEED. GEN 
212.064  PSI. TO. AIRSPEED. GEN 
213.851  PSI. TO. AIRSPEED. GEN 
215.647  PSI. TO. AIRSPEED. GEN 
217.451  PSI. TO, AIRSPEED. GEN 
219.262  PSI. TO. AIRSPEED. GEN 
221.083  PSI. TO, AIRSPEED. GEN 
222.912  PSI. TO, AIRSPEED. GEN 
224.749  PSI. TO, AIRSPEED. GEN 
226.594  PSI. TO. AIRSPEED. GEN 
228.448  PSI. TO. AIRSPEED. GEN 
230.310  PSI. TO. AIRSPEED. GEN 
232.181  PSI. TO. AIRSPEED. GEN 
234.059  PSI. TO, AIRSPEED. GEN 
235.946  PSI. TO. AIRSPEED. GEN 
237.841  PSI. TO. AIRSPEED. GEN 
239.746  PSI. TO, AIRSPEED. GEN 
241.657  PSI. TO. AIRSPEED. GEN 
243.578  PSI. TO. AIRSPEED. GEN 
245.507  PSI. TO. AIRSPEED. GEN 
247.445  PSI. TO. AIRSPEED. GEN 
249.391  PSI. TO. AIRSPEED. GEN 
251.345  PSI. TO. AIRSPEED. GEN 
252.305  PSI. TO. AIRSPEED. GEN 
255.280  PSI. TO, AIRSPEED. GEN 
257,260  PSI. TO. AIRSPEED. GEN 
259.249  PSI. TO. AIRSPEED. GEN 
261.246  PSI. TO. AIRSPEED. GEN 
263.252  PSI. TO. AIRSPEED. GEN 
265.266  PSI. TO. AIRSPEED. GEN 
267.289  PSI. TO. AIRSPEED. GEN 
269.320  PSI. TO. AIRSPEED. GEN 
271,361  PSI. TO. AIRSPEED. GEN 
273.409  PSI. TO. AIRSPEED. GEN 
275,467  PSI. TO. AIRSPEED. GEN 
277,533  PSI. TO. AIRSPEED. GEN 
279,607  PSI. TO. AIRSPEED. GEN 
281.691  PSI. TO. AIRSPEED. GEN 

283.782  PSI. TO, AIRSPEED, GEN 
285,884  PSI. TO. AIRSPEED. GEN 
287.993  PSI. TO. AIRSPEED. GEN 
290.111  PSI, TO. AIRSPEED, GEN 
292,238  PSI. TO. AIRSPEED. GEN 

295.374  PSI. TO. AIRSPEED. GEN 
296.519  PSI. TO. AIRSPEED. GEN 
298,672  PSI. TO. AIRSPEED. GEN 
300,835  PSI. TO. AIRSPEED. GEN 
303.006  PSI. TO. AIRSPEED. GEN 
305.186  PS I. TO. AIRSPEED. GEN 

307.374  PSI. TO. AIRSPEED. GEN 
309.572  PS I. TO, AIRSPEED. GEN 
311.779  PSI. TO. AIRSPEED. GEN 


313.994 

316.218 

318.542 

320.694 

322.945 

325.205 

327.474 

329.753 

332.040 

334.336 

336.641 

338.956 

341.280 

343.612 

345.954 

348.302 

350.665 

353.034 

355.413 

357.801 

360.197 

362.604 

365.019 

367.443 

369.887 

372.320 

374.773 

377.235 

379.706 

382.187 

384.677 

387.177 

389.685 

392.203 


PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO .AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO .AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 
PSI . TO . AIRSPEED . GEN 


INT 


PSI.TO.ALTJGEN 

(  X  GET. PSI. TO. ALT. OFFSET  -  X  IS  CURRENT  ALTITUDE  ) 

(  FIP_OUT  FIP_OUT_TASK  ) 

(  FIP  AOI  TASK  ) 


Appendix  D  - 


Vertical  Gyroscope 


Appendix  D  - 


Humphrey  Inc.  Data 


N 

8 

N 


i 


Appendix  D  - 


Calibration  data 


tuTTt  -tntiflirn-  Miivann 


coot  lOINT.  NO.  ••>■4 


MODEL  NO.  \/G24-1904.1 


SERIAL  NO. 


HUMPHREY  TEST  DATA 
FOR 

VERTICAL  GYRO 


TECHNICIAN 


INSPECTOR 


DATE^r'-3■-? 


SPECIFICATION 

PARAGRAPH 


4.3  Erection  Rates 


3.2  Starting  Current 
3.2.1  Running  Current 
4.4  Vertical  Accuracy 


1.1  Mechanical  Travel 


1.2  Electrical  Travel 


4.2  Tioie  to  Erect 
Frura  Motor  Off 

Potentiometer 

Polarity 

3.15  Insulation  Resistance 


3.18  Sealing 


TEST  DATA 

Pitch  ^*7  Sec . 
Roll  ^04'  Sec. 


VR 

Rolh  'fCO  VR 
Pitch  1/^  Acceptable 


Acceptable 


Pltcht 


Pit  ch  Accep  table 

Roll  Acceptable 

Megohms 

Acceptable 


TEST  REQUIRED 


90  -  300  sec.  (2  -  6.7Vmin.) 
90  -  300  sec.  (2  -  6.7°/min.) 
2.3  amps  max. 

.7  amp  max. 

.487  -  .513  VR 
.490  -  .510  VR 
+60®.  min. 

360®  continuous 
+55®  ,  +2.5® 

+70®  ,  +2.5® 

Less  than  480  sec.  (8  min.) 

Resistance  decreases 

Resistance  decreases 

Greater  than  25  megohms 
at  50  VDC 

Vacuum  equivalent  to  25,000 
feet. 


HTO-876 


AAAHnmphreqj^ 

Jf  y  y  ouiM  MCMMcai  MiMwro 

CODE  lOtNT.  NO.  •■a«4 

TITbB 

HUMPHREY  TEST  D 
FOR 

VERTICAL  GYRO 

ATA 

TISylor 

“^^1-78 

CMKUO 

WO»»l> 

“Ms 

SPECIFICATION 

PARAGRAPH 

TEST  DATA 

TEST 

REQUIRED 

2.1  Static  Error  Band 

Pitch  Anqle 

Voltaqe  Ratio 

Acceptable  Ranqe  VR 

(Linearity) 

55“ 

_ 

.980 

- 

1. 000 

50“ 

‘fsrS 

.935 

- 

.973 

40“ 

.847 

- 

.881 

30“ 

77/ 

.758 

- 

.788 

20“ 

_ 

.668 

- 

.696 

10“ 

_l£22 _ 

.579 

- 

.603 

0“ 

■SOI 

.489 

- 

.511 

10“ 

_ 

.397 

- 

.421 

20“ 

.304 

- 

.332 

30“ 

.212 

- 

.242 

40“ 

.119 

- 

.153  / 

w 

50“ 

04-1 

.027 

- 

.065 

55“ 

.000 

.020 

Roll  Anqle 

70“ 

.986 

- 

1.000 

60“ 

gag- 

.915 

- 

.943 

40“ 

.774 

«• 

.798 

20“ 

.633 

- 

.653 

0“ 

soo 

.492 

- 

.508 

20“ 

3S7 

,347 

- 

.367 

40“ 

.202 

- 

.226 

60“ 

,057 

- 

.085 

70“ 

.000 

- 

.016 

2.3  Contact  Resistance 

Pitch  ^  /OO  Ohms 

Roll  JPQ  OhnB 

2.2  Potentiometer 
^  Resistance 


Pitch  /  Ohms 

Roll  ^  Ohms 


1,900  -  2,100  Ohms 
1,900  •  2,100  Ohms 


Appendix  D  • 


Mounting  materiai 


PRODUCT  PROHLE  PP-308 


BAR 


C-1002  damped 
isolation  materials 


C-1002  offers  performance,  versatility 
for  wide  range  of  applications 


While  E-A-R’s  ISODAMP®  C-1002  ther¬ 
moplastic  originally  was  developed  for 
use  in  constrained-layer  damping  sys¬ 
tems,  the  versatile,  high-performance 
damping  and  isolation  material  today 
has  more  diverse  applications. 

With  its  high  material-loss  factor  and 
excellent  physicd  properties,  C-1002 
effectively  controls  noise,  vibration, 
shock  and  motion  in  cipplications  rang¬ 
ing  from  sensitive  medical  equipment 
to  military  ordnance  vehicles.  It  is 
available  as  sheets,  rolls,  die<ut  parts 
and  standard  and  custom  injection- 
molded  parts,  as  well  as  in  special, 
temperature-tuned  formulations. 


PftCOUCNCY  RATIO  ( MRM ) 

Figure 

CompariMn-TransmiMibility. 

C-1002  is  soft  and  flexible,  yet  physi¬ 
cally  strong  and  resistant  to  tearing, 
abrasion  and  skid.  It  exhibits  low 
rebound  from  impact,  hi^  dielectric 
strength,  and  excellent  flammability 
properties,  complying  with  UL  94V^, 
FAR  and  FMVSS302.  C-1002  also  resists 
degradation  from  ozone,  UV  radiation, 
fungus,  bacteria  and  chemicals. 

Because  it  combines  superior  damp)- 
ing  performance  and  strength  with 
weight  efficiency,  C-1002  thermoplastic 

•is  widely  used  in  constrained-layer 
damping  (CLD)  systems  to  reduce 
noise  and  vibration  in  weight-sensitive 
applications,  such  as  aircraft,  ships 


and  off-road  vehicles.  C-1002  is  found 
in  CLD  systems  incorporating  materials 
ranging  from  common  plywood  to 
multi-layer  composite  laminates. 

To  control  intense  vibrational  dis¬ 
turbances  in  weight-sensitive  applica¬ 
tions,  C-1002  is  u^  as  the  constraining 
layer  in  multi-damping  layer  (MDL) 
composites  with  one  of  E-A-R’s  C-3000 
Series  energy  absc»t>ing  foams  as  a  base 
layer.  MDL  composites  are  used  in  a 
variety  of  high-performance  vehicle 
applications  such  as  aircraft  fuselage 
prop  plane  and  engine  mount  areas. 

Improved  system  performance 

As  equipment  mounts,  feet  cind  iso¬ 
lators.  C-1002  protects  against  broad 
band  and  variable  force  excitation  by 
damping  system  resonances.  In  com¬ 
parison,  materials  such  as  traditional 
rubber  greatly  amplify  the  natural 
frequency  resonance  and  all  higher 
order  resonances,  thus  reducing  the 
amount  of  isolation  possible. 

As  precision-molded  parts,  such  as 
grommets,  crash  stops  and  inertial 
dampers.  C-1002  is  used  extensively  in 
office  equipment,  computer  disk  drives 
and  other  compact  electromechanical 
systems.  It  improves  operational  speed 
and  accuracy  by  damping  and  isolat¬ 
ing  resonances  and  rapidly  dissipating 
shock  energy. 

In  addition,  highly  damped  C-1002 
provides  controlled  deceleration  after 
initial  shock  input.  Mch%  lightly 
damped  materials  not  only  amplify  the 
initi^  shock  input,  but  also  expose  the 
system  to  significant  and  prolonged 
aftershock  motions. 

For  more  information,  see  E-A-R’s 
General  Catalog  No.  502,  the 
ISODAMP  C-IOOO  Series  Grommets 
and  Custom  Parts  Catalog  No.  716 
and  technical  data  sheet  MDS-19 
(ISODAMP  C-1000  Series  Thermo¬ 
plastics).  For  additional  assistance, 
contact  an  E-A-R  noise  control 
expert  at  (317)  872-1111. 


SEAR 


Variety  of  materials 
adapt  for  many  uses 

Whether  an  application  requires 
a  quarter-inch-thick  dang>ing  sheet 
or  a  custom-engineered  isolation 
mount,  there  is  an  E-AR  C-1002 
product  form  to  fit  the  bill. 

In  sheet  and  roll  form,  C-1002  is 
available  in  thicknesses  from 
.015-inch  to  1  inch.  C-1002  sheet 
and  roll  materials  can  be  com¬ 
bined  with  other  &AR  materials 
to  form  multifuiKtion  composites 
that  provide  weight-efficient  hi^ 
performaiKe.  Its  excellent  physical 
properties  aixl  wear  resistance 
make  C-1002  well-suited  for 
constrained-layer  damping  appli¬ 
cations  in  harsh  environments. 

EAU  offers  41  standard  C-1002 
isolators  in  15  different  styles, 
as  well  as  custom  die-cut  and 
injection-molded  parts.  Because 
injection  molding  with  proprietary 
ISODAMP  thermoplastic  involves 
shorter  cycle  times  and  less  waste 
than  processing  neoprene,  silicone 
or  thermosetting  rubbers,  small- 
volume  runs  and  prototype  parts 
are  more  cost-effective. 

C-1002  matmials  can  be  die-, 
shear-  or  knife-cut  and  are  adhe¬ 
sively  bonded  to  clean,  degreased 
subsbates.  Pressure-sensitive 
arfiiesive  backings  are  available 
for  convenient  installation.  For 
further  ease  of  assembly,  E-AR  can 
ship  parts  in  one-application  kits. 


ISODAMP  C-1002  materials. 
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Material  Data  Sheet 


ISODAMF  C-1000  SERIES  THERMOPLASnCS 


Description 

E-A-R  ISODAMP  C-1000  Series  thermo¬ 
plastics  are  high-performance  vibration 
isolation/damping  materials.  Composed  of 
energy  absorbing  thermoplastic  alloys, 
the  material  series  is  typified  by  extra¬ 
ordinarily  high  material  loss  factors.  The 
high  internal  damping  of  ISOOAMP  Series 
materials  reduces  mechanically  or  acous¬ 
tically  induced  vibrationa  and  dissipates 
shock  and  impact  energy  at  a  very  rapid 
rate.  These  properties— in  conjunction 
with  physical  strength,  flexibility,  environ¬ 
mental  resistance,  anti-skid  properties 
and  good  flame  resistance-make  C-1000 
Series  materials  excellent  for  constrained 
layer  damping,  damped  isolation  and 
impact  control  applications. 

Available  in  three  peak-performance 


temperature-tuned  formulations, 
ISODAMP  C-1000  Series  materials  pro¬ 
vide  maximum  energy  control  in  a  wide 
range  of  applications. 


ISOOAMP 

Fomulation 

PMk  Damping 
Psrfonnanea 
liHnparatura 
nanQ#C>F) 

Shore  A 
Ouromatar 

C-1002 

55-105 

56 

C-110S 

80-130 

63 

C-1100 

95-145 

70 

'Shore  A  Ourometer  (IS-sec.  test) 


ISODAMP  C-1002  and  C-1 100  are  avail¬ 
able  in  sheets,  rolls  or  as  custom  die-cut 
parts.  And,  ISODAMP  C-1002,  C-1 105  and 
C-1 100  are  available  in  standard  and 
custom  injection-molded  parts. 


Applicatfons 

Constrained  Layer  Damping - 

ISODAMP  C-1000  Series  thermoplastics 
originally  were  developed  for  use  as  high- 
performance  constrained  layer  damping 
materials.  ISODAMP  C-1002  is  widely 
used  to  reduce  mechanically  induced 
vibrational  disturbances  and  noise  in  air¬ 
craft,  military  and  non-military  ships,  off¬ 
road  vehicles,  continuous  miners,  office 


equipment  and  articulated  and  non- 
articulated  assembly  equipment.  The 
materials  are  used  in  a  variety  of  con¬ 
strained  layer  systems— from  common 
plywood,  aluminum  and  steel  to  state-of- 
the-art  weight-sensitive  honeycomb 
composite  structures. 


Constraining  Layer  for  MDI - 

E-A-R  C-1002  is  a  primary  building  block 
for  the  unique  E-A-R  ISODAMP  MDL  (multi¬ 
damping  layer)  damping  composites.  MDL 
composites  provide  broad  temperature 
damping  in  weight-sensitive  applications 
where  maximum  energy  control  is 
required.  MDL  composites  are  primarily 
used  by  the  aircraft  and  aerospace  indus¬ 


tries  as  well  as  in  other  high-performance 
vehicle  applications  (reference  MDS-50). 
The  composites  are  widely  used  to  provide 
weight-efficient  control  of  high-intensity 
acoustical  and  mechanical  energy  in  areas 
such  as  crossover  ducts,  surfaces  in  close 
proximity  to  prop  planes  or  in  engine 
mounting  areas. 


Isolation  Mounts  and  Equipment  Fast - 

E-A-R  C-1000  Series  materials  are  mate¬ 
rials  of  choice  for  equipment  moL  ts.  pads 
and  feet  in  both  OEM  original  de:.ign  and 
aftermarket  applications.  In  addition  to 
vibration  isolation.  C-1000  Series  mounts 
provide  protection  from  broad-band  and 
variable  forcing  frequency  inputs  by 


damping  amplification  at  system 
resonances  and  by  dissipating  vibrational 
energy  from  the  system.  E-A-R  provides 
standard  mounts,  custom-molded  parts 
and  sheet  material  for  do-it-yourself 
installation. 


MATERIAL  SOLUTIONS  FOR  ENERGY  CONTROL 
NOISE,  VIBRATION,  SHOCK  MOTION 


C  19t7  E-A-R  Otvitian.  CAM!  Corpontion 
ISOOAMP  It  *  rtgitMftd  tradtmtrk 


Grofnmets,  Bushings,  Crash  Stops _ 

ISODAMP  C-1000  Series  thermoplastics 
are  extensively  used  in  office  machines 
and  computer  peripherals  as  well  as  in 
electromechanical  equipment  of  all  types 
to  control  motion,  vibration,  shock  and 
noise.  In  hard  disk  drives  and  similar  sen¬ 
sitive  precision  equipment,  C-1000  Series 
grommets  produce  a  more  dynamically 
compliant  system.  In  systems  where  space 
is  at  a  premium,  C-1000  Series  grommets 
and  bushings  quickly  dissipate  shock 
energy  and  restore  static  equilibrium  with¬ 


out  oscillation  or  large  initial  displace¬ 
ments.  In  mechanical  systems  such  as 
copiers  and  printers,  C-1000  Series  parts 
are  used  as  motor  mounts,  printer  platen 
and  frame/case  isolators.  Crash  stops 
made  of  C-1000  Series  materials  can 
reduce  cycle  time  and  increase  reliability 
by  providing  controlled  impact  decelera¬ 
tion  with  little  or  no  rebound.  See  E-A-R 
Grommet  Catalog  Form  714  for  more 
information  on  the  standard  ISODAMP 
grommet  and  bushing  product  line. 


Ordnance  Vehicle  Applications _ 

Due  to  their  compression-velocity  sensi¬ 
tivity  and  unique  energy  absorbing  and 
dissipation  characteristics,  ISODAMP 
C-1000  Series  materials  are  well-suited 
for  many  specialty  ordnance  vehicle  appli¬ 
cations.  The  M1A1  tank  capitalizes  on 
ISODAMP’S  excellent  physical  integrity 
and  the  diversity  of  available  material 
forms,  incorporating  ISODAMP  C-1002 


die-cut  sheets  and  custom-molded  fratri¬ 
cide  bars  to  provide  enhanced  protection 
for  the  ammunition  storage  system,  reduc¬ 
ing  the  overall  vulnerability  of  the  current 
production  main  battle  tank.  In  addition, 
other  potential  applications  include  interior 
spall  protection  mechanisms,  shielding, 
and  composite  and  ceramic  armor 
systems. 


DAMPING  CHARACTERISTICS 


c-1002 


»■  10'  »'  10*  «'  KK 

REDUCED  FREOU6NCV 


Instnictions-Raducad  Fraquancy  Nomograms 

The  reduced  frequency  format  is  the  standard  method  for  dis¬ 
playing  damping  material  performance  data.  To  determine 
dynamic  Young’s  modulus  and  material  loss  factor  at  a  given 
temperature  and  frequency,  use  the  following  steps;  1 )  Select 
the  frequency  of  interest  on  the  right-hand  vertical  axis.  2)  Follow 
the  selected  frequency  line  horizontally  to  the  left  until  the  selected 
diagonal  temperature  isotherm  is  intersected.  3)  Draw  a  vertical 
line  up  and  down  through  the  frequency/isotherm  intersection 
(this  vertical  line  will  intersect  the  dynamic  Young’s  modulus  and 
material  loss  factor  curves).  4)  Draw  horizontal  lines  from  these 
points  to  intersect  the  left-hand  vertical  axis.  5)  The  dynamic 
Young’s  modulus  value  is  read  using  the  Dynamic  Modulus  scale 
and  the  loss  factor  from  the  (Loss  Factor)  scale. 


TYPICAL  PROPERTIES 


Property  { 

1  Test  Method 

1  C-1002  1 

1  C-1105  1 

I  C-1100 

Physical  Properties 

Specific  Gravity 

ASTM  D792 

1.289 

1.287 

1  282 

Glass  Itansition,  Tg 

ASTM  E756 

-20°C 

-13°C 

2°C 

Hardness 

ASTM  D2240 

Shore  A  durometer  15  sec.  post  impact  ®  23°C 

56 

63 

70 

Rebound 

ASTM  D2632  (Modified) 

Bashore  Resilience 
%  Rebound  (First) 

4.8% 

5.4% 

5.7% 

Min.  Rebound  Temp. 

21  °C 

34°C 

40°C 

Outgassing 

ASTM  E595  (Modified) 

0.067% 

Not 

0.135% 

24  hr.  at  10"*  Torr 

@40° 

Tested 

@  50°C 

Total  Mass  Loss  Water  Reabsorbed 

0.043% 

0.045% 

Dielectric  Strength 

ASTM  0149  Breakdown  Voltage 

166  volts/mil 

Not  Tested 

Not  Tested 

Thermal  Conductivity 

ASTM  Cl  77  BTU  in./hr.  ft.s  =F 

1.00 

Not  Tested 

.90 

Coefficient  of  Friction 

ASTM  03389  on  Etched  Aluminum 

Static 

.92 

1.21 

1.24 

Kinetic 

.75 

.77 

.71 

Flammability 

UL  94  Vertical 

V-0 

V-0 

V-0 

0.125"  Samples 

Recognized  V-0 

to  0.056" 

FAR  25.855  (a-1) 

Meets  at  0.060" 

Not 

Meets  at  0.060" 

FAR  25.853  (b) 

Meets  at  0.030" 

Applicable 

Meets  at  0.060" 

FAR  25.853  (b-3) 

Meets  at  0.015" 

Meets  at  0.060" 

FMVSS-302 

Meets  at  0.01 5” 

Meets  at  0.060" 

Strength  Properties 

Compressive 

ASTM  0621  Method  8  24°C 

Deformation 

%  Oefbrmation  (3  hr.) 

10.4% 

9.8% 

8.4% 

%  Recovery  (1.5  hr.) 

90.4% 

95.5% 

95.7% 

Compression  Set 

ASTM  0395  Method  B 

22  hr.  at  22°C  (72*R 

14% 

23% 

24% 

22  hr.  at80‘’C(176'’F) 

62% 

51% 

55% 

Ibnsile  Strength 

ASTM  0903 

1574  psi 

1807  psi 

2058  psi 

Elongation 

ASTM  0903 

459% 

417% 

317% 

Ibnsile  Modulus 

ASTM  0903 

450  psi 

805  psi 

1155  psi 

Ibar  Strength 

ASTM  01004  0.125"  Samples 

25.2  lb. 

30.1  lb. 

38.1  lb. 

Abrasion 

ASTM  03389 

Resistance 

H22  stone,  lOOOg  load  Wear  Factor 

242 

350 

271 

Environmental  Resistance 

Ozone  Resistance 

ASTM  01149 

Not  Affected 

Not  Affected 

Not  Affected 

Ullraviolet  Resistance 

ASTM  G84  (300  hr.) 

Not  Affected 

Not  Affected 

Not  Affected 

Accelerated 

ASTM  G23  Method  1  Weather-Ometer 

Decrease  in 

Not 

Not 

Aging 

1000  hr.  Exposure  to  Cycles  102  min. 

Gloss.  No  Other 

Tested 

Tested 

Light  (carbon  arc)  ®  50%  RH  & 

Significant 

63®C.  1 8  min.  Light  and  Water  Spray 

Effects  Noted 

Bacterial 

ASTM  G22 

Resistant 

Not 

Not 

Resistance 

No  Growth 

Tested 

Tested 

Fungal 

ASTM  G21 

Resistant 

Not 

Not 

Res^nce 

No  Growth 

Tested 

Tested 

Chemical 

ASTM  0543 

Resistance 

1  wk.  Immersion  %  Weight 

Change  in  Reagent: 

Sulfuric  Acid  (2  molar) 

0.00% 

+0.38% 

+0  39% 

Oiesel  Fuel 

+2.91% 

+2.62% 

+092% 

Oistilled  Water 

+0.36% 

+0.36% 

+0.39% 

Sea  Water 

+0.36% 

+0.37% 

+039% 

Mineral  Oil 

-0.36% 

-0.38% 

0  00% 

Ethylene  Glycol 

-0.36% 

+  1.16% 

000% 

Ibmperature  Range 

Peak  Oamping  Performance  Range 

55  to  105°F 

80  to  130°F 

95  to  145  F 

Recommended  Maximum  Intermittent 

180°F 

180°F 

180  F 

ISODAMP 
C-1000  SERIES 
^ERMOPLASnCS 

Specifications 


Isolation/constrained  layer  damping 
materials  shall  be  E-A-R  ISODAMP  C- 
Series  thermoplastics  manufactured 
E-A-R  Division,  Cabot  Corporation, 
Indianapolis,  Indiana. 

C-1002-01 

0.015"  thick 

C-1002-03 

0.03"  thick 

C-1002-06 

0.06"  thick 

C-1002-12 

0.1 2"  thick 

C-1002-25 

0.25"  thick 

C-1002-50 

0.50"  thick 

C-1002-99 

1 .00"  thick 

C-1002 

molded  parts 

C-1105 

molded  parts 

C-1 100-06 

0.06"  thick 

C-1100-12 

0.12"  thick 

C-1 100 

molded  parts 

E-A-R  ISODAMP  C-1000  Series  thermo¬ 
plastics  can  be  die,  shear  or  knife-cut. 
E-A-R  molds  a  broad  line  of  standard 
vibration,  shock  and  motion  control  parts 
and  offers  custom  molding  and  die  cutting. 

The  ISODAMP  C-1000  Series  materials 

kiy  be  cryogenically  machined  to  pro- 
ce  prototype  parts.  Cooling  by  continu¬ 
ally  applying  a  Venturi-effrot  air  gun  to  the 
cutting  tool  or  freezing  ISODAMP  prior  to 
machining  will  sufficiently  harden  the 
material  for  machining. 

ISODAMP  C-1000  Series  materials  can  be 
bonded  to  clean,  degreased  substrates 
with  Bostik  7132/Boscodur  4  adhesive 
system.  Refer  to  E-A-R  MDS-25A  for 
detailed  properties. 

For  design  and  application  recommenda¬ 
tions,  contact  your  nearest  E-A-R  repre¬ 
sentative  or  sales  office. 


Velocity-Sensitive  Compression  Resistance 


E-A-R  ISODAMP  C-1000  Series  materials 
are  highly  compression-velocity  sensitive. 
This  sensitivity  is  similar  to  that  displayed 
by  viscous  dampers.  Like  a  shock 
absorber,  if  C-1000  Series  materials  are 
compressed  quickly,  they  appear  stiff  ;  if 


they  are  compressed  slowly,  they  appear 
soft.  Compression-velocity  sensitivity  is 
one  of  the  keys  to  ISODAMP  C-1000  Series' 
excellent  shock  absorbing  and  low 
rebound  properties. 


0  5  10  15 

%  COMPRESSION 


Compressiva  Creep 


In  isolation  systems  C-1000  Series  mate¬ 
rials  are  recommended  for  a  50  psi  opti¬ 
mum  load.  The  compressive  creep  curves 


for  25,  50  and  100  psi  are  shown.  The 
data  represent  C-1002  at  70°F  with  a 
shape  factor  of  0.5. 


Stress  Relaxation 

ISODAMP  C-1000  Series  materials  are  C-1002  per  ASTM  F-38  conducted  at  72°F 
often  used  in  gasket  or  washer  applies-  are  shown, 
tions.  Stress  relaxation  data  for  30  mil 


Th«  data  listed  m  mis  data  sMet  are  typical  or  average  values 
baaed  on  tests  conducted  by  independent  laboratortes  or  by 
me  manufacturer  They  are  mcHcatlve  only  of  me  resuKs  obtained 
in  such  tests  artd  should  not  be  considered  as  guaranteed 
matimums  or  minimums  Matenals  must  be  tested  under  actual 
servtce  U)  determine  their  suitability  for  a  particular  purpose 


OEAR 
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Appendix  E  - 


Three-Axis  Magnetometer  Data  Sheets 


For  HEADING  and  ATTITUDE  SENSING  APPLICATIONS 


‘v'ag''etcr^e!ers  are  fast  oecGr^''^g  accepted  devce  to  socpiv 
e  "'O'  Heading  and  cr  Attitude  n'C'^ation 

Tney  are  SHa^'  'cnt  and  cost  et'ect-ve  a^d  "cav  be  used  n  a 
"ange  c‘  oce^a'  o^'a'  er  .■rorn".e'':s  e f^er  '"e  ac  on  a''d  or 
/vater 

As  a  soiid  s’a'e  ad.ance  tecnrcicay  dev  ce  ’“^ev  c“e’’  -csat  i'ty 
to  'ne  svsteH  oes  gner  ar^d  can  ooe'a'.e  -vitn  e.tner  digiia  or  anaicg 
ntnrfacng 


12065mm 


(4750tn) 

i 

114  3mm 


d 

(4S00in) 

31 7Smm 

'  (1.250tn)' 

Connector  lypt 
Cannon  0EM9P  -  NMB 


34.92Smm 

(1375»n) 


TAM/7 

Our  new  development  is  a  self  contained  hybrid 
strapdown  magnetic  field  measuring  module 
having  three  axes  of  measurement.  The  package 
consists  of  fluxgate  field  sensors  and  hybrid 
circuits  plus  some  discrete  components  mounted 
on  a  PCS.  All  are  contained  within  an  extruded 
aluminum  case. 

Typical  uses  are: 

Fixed  and  rotary  wing  aircraft;  unmanned 
aircraft;  underwater  remotely  operated  vehicles; 
decoys;  missiles:  soundings  rockets  and 
satellites;  targets;  torpedoes:  current  meters: 


8/10  BIT  HEADING  SYSTEM  DHS  2 

A  two  axis  strapdown  fluxgate  compass  giving 
heading  angle  output  as  a  digital  word  (8,  9  or 
10  bit).  Secondary  outputs  m  analog  form  of  d.c. 
voltages  proportional  to  Sin  8  and  Cos  0  are 
provided  as  well  as  a  scaled  d.c  0  to  3,6V  signal 
proportional  to  0°  to  360° 

The  compass  system  has  no  gravitational 
reference  as  the  two  axis  fluxgate  sensor  is  not 
normally  gimballed.  Systems  having  gimballed 
sensors  have  been  provided,  however,  in  the 
past. 

Typical  uses  are:  Sonobuoys;  RPV's/ Drones:  Air 
and  Sea  Missiles:  Databuoys  and  Navigation 
Systems 


ANALOG  COMPASS  SYSTEM 

A  simple  two  axis  analog  fluxgate  compass  giving 
output  signals  of  Sm  8  and  Cos  8  The  magnetometer 
also  has  auto  gam  circuitry  to  allow  for  use  anywhere, 
irrespective  of  latitude. 

Typical  utat  ara:  Sonobuoys:  Databuoys  and  simple 
Navigation  Systems, 


AHRS  MAGNETOMETERS  TYPE  TAM/4/6 

A  three  axis  magnetometer  used  in  Attitude  and  Heading 
Reference  Systems  (AHRS).  Outputs  are  m  the  form  of  three 
channels  of  analog  processed  signals.  The  AHRS  can  be 
corrected  for  orthogonality  and  are  available  with  uni-polar 
or  bi-polar  power  supplies.  These  units  will  be  of  MIL-Spec 
design  and  contain  appropriate  circuits  and  components. 

Typical  uses  are:  As  part  of  fully  attitude  compensated 
AHRS  for  prime  or  standby  use  in  Aircraft  (fixed  or  rotary 
wing)  or  RPV's/Drones;  m  Air  or  Sea  Missiles:  m  Arrays  at  Sea: 
in  Land-based  Measuring  Instruments;  and  in  Navigation 
Systems 


DIGITAL  HEADING  SENSOR  DHS  3 

A  strapdown  fluxgate  compass  having  its  two 
axis  sensor  integral  with  its  electronics  board. 

Heading  angle  output  is  in  the  form  of  a  digital 
word  (8.  9  or  1 0  bit). 

Typical  use*  are:  Sonobuoys:  Oatabuoys; 

RPVs/Drones.  and  Navigational  Systems. 


SENSORS 

Most  sensors  are  preferred  to  be  provided  as 
strapdown  devices  although  gimballed  versions 
are  available.  Sensors  can  be  provided  as  single, 
double  or  triaxial  fluxgates. 

The  fluxgate  sensor  is  a  wound  component  with 
a  toroidal  ferromagnetic  core.  A  drive  field  is 
applied  to  the  core  and  the  external  field 
interaction  with  it  produces  an  assymetric 
change  of  core  flux.  This  changing  core  flux  is 
detected  by  a  solenoidal  winding  over  the  core 
and  the  resultant  signal  is  processed. 

Individual  sensor  packages  vary  in  size 
dependent  upon  the  trade-offs  accepted 
against  performance,  cost,  power  etc. 
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OP-77 

NEXT  GENERATION  OP-07 
(ULTRA-LOW  OFFSET  VOLTAGE  OPERATIONAL  AMPLIFIER! 


PRELIAUNARY 


features 

t  Outalandlng  Oaln  Unaarlty 


t  Ultra  High  Gain . SOOOV/mV  Min 

•  Low  Voa . 2SmV  Mai 

•  EicoHant  TCVoa .  0.3MV/*CMai 

«  HlghPSRR . 3»iV/VMai 

•  High  CMRR . 1.0mV/V  Mai 

t  Lew  Rewof  ConaumpUen  . gOmW  Mai 


•  FIta  OP-OT,  73S,  1MA/3MA,  741  Soekato 


ORDBRINQ  INPORMATIONt 


MCiaoa 

oaaiuTiiM 

TaaMhATUha 

sANoa 

ro«M 

l-PW 

MaHHanc 

o» 

S-MN 

KAtne 

OIP 

laHN 

O^AJ* 

MIL 

O^fJ 

OfTTU 

opnip 

INO 

oerraz- 

MIL 

ornfj 

oerrsz 

QPTTfP 

INO 

oerroz 

OP77QP 

COM 

'tarMMCM  trcemia  w  tetti  caneiiane*  to  Mlu-STO-tM.  *M  /M3  ttttr 
pmioimatr.  Ca««uH  )*eto>y  lor  Ha  dtu  (DMi. 

•M  e«mfMrei«i  *n4  inaMtfiw  MmcMntun  ring*  p«rta  m  ntiMM  witn 
MUHA.  for  otoonng  infonrMitMA  M*  1M4  Otu  800*.  Saevon  2 


QINBRAL  OBSCRIPTION 

Tha  OP*77  fignificantly  advancaa  the  ttato-ol-tha-art  in 
ptaciHen  op  ampa.  The  OP-77'a  outatanding  gain  of 
•4,000.000  or  moro  ia  maintainad  over  tho  full  £10V  output 
range.  Thla  axcaptlonal  gain-ilnaarlty  aliininataa  incorroct* 
iM  lyatam  nonlinoaritiaa  common  in  pravioua  monolithic 
op  ampa,  and  providoa  auporior  parformanca  in  high  cioaod- 
•oep-gain  application!. 


Low  initial  Vos  ^rift  and  rapid  atabilization  time,  combmad 
with  only  SOm  W  power  consumption,  are  significant  improva- 
mants  over  pravioua  daaigna.  Thaaa  characteristics,  plus  the 
axcaptional  TCVqs  of  0.3«i  V/*C  maximum  and  tho  low  Vqs  of 
2S|iV  maximum,  aliminataa  the  naad  for  Vqs  adjustment  and 
incraaaas  system  accuracy  over  tamparatura. 

PSRR  of  3mV/V  (llOdB)  and  CMRR  of  1.0mV/V  maximum 
virtually  aiiminata  errors  caused  by  power  supply  drifts  and 
common-mode  signals.  This  combination  of  outstanding 
characteristics  makes  the  OP-77  ideally  suited  for  high- 
rasolution  instrumentation  and  other  tight  error  budget 
systems. 

This  product  is  available  in  five  standard  grades  and  three 
standard  packages:  the  TO-B9  can  and  the  S-pin  mini-dip  in 
ceramic  or  epoxy. 

The  OP-77  is  a  direct  or  upgrade  raplacamsnt  for  the  OP-07. 
OP-OS.  725,  or  108A  op  amps.  741-typas  can  be  replaced  by 
eliminating  the  Vqs  adjust  pot. 


PIN  CONNECTIONS 


UMPLIPIBO  SCHEMATIC 


ONAL  AMPLIFIERS 


AttOLUTI  MAXIMUM  RATINGS  (Not#  2) 


Supply  WolMfl* .  :22V 

intpmal  Powar  Oiaiipation  (Nota  1)  . SOOmW 

Dilfarantial  Input  Voltaga .  ±30V 

input  Voltaga  (Nota  3) .  i22V 

Output  Short-Circuit  Duration . Indafinita 

Storaga  Tamparatura  Ranga 

J  and  Z  Packagaa . -65*C  to  +150*C 

P  Packaga . -65*C  to  +i25*C 

Oparating  Tamparatura  Ranga 

OP-77A.  OP-77B . -55*C  to  +125*C 

OP>77E.  OP-77F . -2S*C  to  +85*C 

OP-77Q . 0‘C  to  70‘C 

Load  Tamparatura  Ranga  (Soldaring.  60  aac) . 300*  C 

DICE  Junction  Tamparatura  (T,)  . -SS'C  to  1S0*C 


NOTia: 

1  Sm  flibM  for  maximum  amoiant  tamparatura  rstirvg  artd  Oarating  factor 
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2.  Abaotuta  maximum  ratings  appfy  to  Doth  pachagao  parts  and  OiCC.  uniass 
otftarwiaa  noiad. 


3.  For  supply  voitagas  toss  tnan  s  22V.  tha  abaoiuta  maximum  input  vottaga  is 
aquai  to  ma  supply  voitaga. 


ILXCTRICAL  CHARACTIRISTICS  it  Vs  •  t  ISV.  T^  >  2S*C.  uniMO  othorwlto  noted. 
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Actual  opan-ioop  voltaga  can  vary  greatly  at  varloua  output 
voltagaa.  All  automated  teatera  uae  end-point  teating  and 
therefore  only  ahow  the  average  gain.  Thia  eauaea  errora  in 
high  eloaed-ioop  gain  circuita.  Since  thia  ia  ao  difficult  for 
manufacturera  to  teal,  you  ahould  make  your  own  evaluation. 
This  simple  teat  circuit  makea  it  eaay.  An  ideal  op  amp  would 
•how  a  horizontal  acope  trace. 


Thia  ia  the  output  gain  linearity  trace  for  the  new  OP-77.  The 
output  trace  ia  virtually  horizontal  at  all  pointa.  assuring 
extremely  high  gain  accuracy.  The  average  open-loop  gam  is 
truly  impressive  —  approximately  10,000.000. 
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HIGH  SLEW  RATE,  WIDE  BANOWlOTH. 

JFET IMRUT  OPERATIONAL  AMPURERS 

Thm*  (toviCN  ara  a  naw  ganaraiion  of  high  ipaaO  JFET  input 
monolithic  oparational  amplifiara.  Innovative  daugn  eoncapta 
along  with  JFET  technology  provide  wide  gam  bandwidth  product 
and  high  slaw  rata.  Wall  matched  JFET  input  devices  and  ad¬ 
vanced  trim  techniques  ensure  low  input  offset  errors  and  bias 
currents.  The  all  NPN  output  stage  features  large  output  voltage 
swing,  no  deadband  crossover  distortion,  high  capacitive  drive 
capability,  excellent  phase  and  gam  margins,  low  open-loop  out¬ 
put  impedance,  and  symmetrical  source/sink  ac  frequency 


This  series  of  devices  are  available  in  standard  or  prime  par- 
formanca  (A  suffix)  grades,  fully  compensated  or  decompensated 
IAvcl*2)  and  ara  spaciriad  over  commercial  or  Military  temper¬ 
ature  ranges.  They  ara  pin  compatible  with  existing  Industry  stan¬ 
dard  oparational  amplifiers,  and  allow  the  designer  to  easily  up¬ 
grade  the  performance  of  existing  designs, 
e  Wide  Gain  Bandwidth:  8.0  MHs  for  Fully  Compensated  Devices 
18  MHa  for  Oecompansated  Devices 
a  High  Slaw  Rata:  25  V/m*  for  Fully  Compensated  Devices 
SO  V'(is  for  Decompensated  Devices 
e  High  Input  Impedance:  10'2  n 

a  Input  Offset  Voltage:  0.5  mV  Maximum  iSingla  Amplifier) 
e  Large  Output  Vottaga  Swing;  - 14  7  V  to  + 14  V  for 
VCC'^EE  *  s'SV 

e  Low  Open-Loop  Output  Impedance:  30  0  fu  1.0  MHz 
e  Low  THO  Oiatortion:  0.01% 

e  Excellent  PhaaarGain  Margins;  S5*/7.8  d8  for  Fully  Compen¬ 
sated  Devices 
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DC  ELECTWCAL  CHAIUkCTEfWTICS  (Vcc  "  V.  •  -  1S  V,  Ta  •  to  T^igh  (Not*  3],  unton  othofwin  notod) 


NOTtS  ICONTtNUtOt 

3.  T|^  .  >S6XforMC360i0A  Tiq^  «  0^:  for  MC3«0«)>  *  *  12SX  for  MC390I0A  Thiots  •  *  TtrC  for  MC340i0> 
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HGURE  3  —  INPUT  BUS  CURRENT  vwmm 
INPUT  COMMON-MODE  VOiTACE 


RGURE  4  —  OUTPUT  VOLTAGE  SWING 


0  :5.l)  ^10  :ris  rS 

WccVee.  SUm.Y  VOLTAGE  IVOITSI 


FIGURE  S  —  OUTPUT  SATURATION  vmit 
LOAD  CURRENT 


FIGURE  t  —  OUTPUT  SATURATION  ««iu4 
LOAD  RESISTANCE  TO  GROUND 


FIGURE  7  —  OUTPUT  SATURATION  raniN 


FIGURE  B  —  OUTPUT  SNORT  ORCUIT  CURRBIT 
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FIGURt  «  —  OUTPUT  IMPEDANCE  vpniM  FREQUENCY 


FIGURE  10  —  OUTPUT  EMPEOANCE  vprau*  FREQUENCY 


nouRE  11  -  OUTPUT  voltage  shying 

VMU*  FREQUENCY 


FIGURE  12 
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-  OUTPUT  DWTORTION  »«M  FREQUENCY 
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FIGURE  T9  —  OPUPLOOP  VOLTAGE  GAB* 
««wi  TMPEMTURE 
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I^K;34080,  MC3S080  S«riM 


MOTOROLA  LINEAR/INTERFACE  DEVICES 


KEXaSSmASCiOCGKESi 


-so  -«  *IOO  ♦t» 

Ta,  IMKNT  ItMWWIVM  I'd 


»  !0 
ta.  MMWT  lemiATUK  ro 


MOTOROLA  LINEAR/INTERFACE  DEVICES 


2-290 


II/IC34080,  MC35080  SeriM 


MC340M  TRANSIENT  RESPONSE 
Ay  »  +10,  Rl  =  2.0  K  Vcc/VgE  »  *15  V,  T^  -  25*C 


nOUK  24  —  SMAU-SICMAL 


nOUM  2S  -  UUWC-SnNAL 


MC340M  TRANSIENT  RESPONSE 
Ay  ■  +2.0,  Rl  »  2.0  k,  Vcc/Vfg  »  *1S  V.  •  2S*C 
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nCURE  a  —  POWER  SUPPLY  REJECTION  RATIO 
VMM  FREQUENCY 


FIQURE  M  -  POWER  SUPPLY  REJECTION  RATIO 
v««M  TEMPERATURE 


FKMJRB  11  —  HORMlimil  SUPPLY  CURRENT 
OWM  SUPPLY  VOLTAGE 
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MC34080,  MC35080  S«riM 


AmiCATIONS  INTORMATION 

The  benowidth  and  slaw  rata  of  the  MC34Qao  sariat 
is  nearly  double  that  of  currantiv  available  general  pur¬ 
pose  JFET  op-ampa.  This  improvement  m  ac  perfor¬ 
mance  is  due  to  the  P-channel  JFET  differential  input 
stags  driving  a  compensated  miller  integration  ampli¬ 
fier  in  conjunction  with  an  all  NPN  output  stage. 

The  all  NPN  output  stags  offers  unique  advantages 
over  the  mors  conventional  NPN/PNP  transistor  Class 
AS  output  stage.  With  a  10  k  load  resistance,  the  op-amp 
can  typically  swing  within  I.O  V  of  the  positive  rail  IVcc>- 
and  within  0.3  volts  of  the  negative  rail  (Vggl.  providing 
a  28.7  Vp~p  awing  from  :  IS  volt  supplies.  This  large 
output  swing  becomes  most  noticeable  at  lower  supply 
vottages.  If  the  load  resistance  is  referenced  to  Vcc 
instead  of  ground,  the  maximum  possible  output  swing 
can  be  achieved  for  a  given  supply  voltage.  For  light 
load  currants,  the  load  resistance  will  pull  the  output  to 
Vcc  during  the  positive  swing  and  the  NPN  output  tran¬ 
sistor  will  pull  the  output  very  near  Vgg  during  the  neg¬ 
ative  swing.  The  load  resistance  value  should  be  much 
leas  than  that  of  the  feedback  resistance  to  meximiia 
pull-up  capability. 

The  all  NPN  transistor  output  stage  is  also  inherendy 
fast,  contributing  to  the  operational  amplifier's  high 
gain-bandwidlh  product  and  fats  settling  time.  The  as¬ 
sociated  high  frequency  output  impedance  is  SO  ohms 
ItypicalVat  8.0  MHi.  This  allows  driving  capacitive  loads 
from  0  to  300  pF  without  oaeillabons  over  the  military 
temperature  range,  and  over  the  full  range  of  output 
swing.  The  S5'  phase  margin  and  7.8  dB  gain  margin 
as  well  as  the  general  gain  and  phase  characteristics 
are  virtually  independent  of  the  sink/source  output 
swing  conditions.  The  high  frequency  characteristics  of 
the  MC340B0  series  is  especially  useful  for  aaive  filter 
applicationa. 

The  common  mode  input  range  is  from  2.0  volts  be¬ 
low  the  positive  rail  IV^cl  to  4.0  volts  above  the  neg¬ 


ative  rail  IVggl.  The  amplifier  remains  active  if  the  inputs 
are  biased  at  the  positive  rsil.  This  may  be  useful  for 
some  applicationa  m  that  single  supply  operation  is  pos- 
sibls  with  a  singla  negativs  supply.  However,  a  degra¬ 
dation  of  offset  voltage  and  voltage  gain  may  result. 

Phase  reversal  does  not  occur  if  either  the  inverting 
or  noninverting  input  (or  both)  exceeds  the  positive 
common  mode  limit.  If  either  input  lor  both)  exceeds 
the  negative  common  mode  limit,  the  output  will  be  in 
the  high  stata.  The  input  stage  also  allows  a  differential 
up  to  =44  volta.  provided  the  maximum  input  voltage 
range  is  not  exceeded.  The  supply  voltage  operating 
range  is  from  =S.O  V  to  =22  V. 

For  optimum  frequency  performance  and  stability 
careful  eomponem  placement  end  printed  circuit  board 
layout  should  be  exercised.  For  axampte,  long  un¬ 
shielded  input  or  output  leads  may  result  in  umvantsd 
input-output  coupling.  In  order  to  reduce  the  input  ca¬ 
pacitance.  resistors  connected  to  the  input  pins  should 
be  physically  close  to  these  pins.  This  not  only  mini- 
miies  the  input  pole  for  opbmum  frequency  response, 
but  also  minimias  extraneous  "pidgup"  at  this  nods. 

Supply  decoupling  with  adequate  capacitance  dose 
to  the  supply  pin  is  also  important  partfcuiarty  over 
tamporature,  since  many  typea  of  decoupling  capacitors 
exhibit  large  impedance  changes  ever  temperature. 

Primarily  due  to  the  JFET  inputs  of  the  op  amp,  the 
input  offaei  voftage  may  ehaiige  due  to  temperature 
cycling  and  board  soldering.  After  20  temperature 
eydas  (- SSX  to  ISS'C),  the  typical  standard  doviaaion 
for  input  offset  voltage  is  S6B  »V  and  473  mV  in  the 
plastic  and  ceramic  packages  rsepectively.  With  rsapect 
to  board  soMsring  I26(rc,  10  seconds)  the  typical  stan¬ 
dard  deviadon  tar  input  offset  voHage  is  828  mV  and 
227  mV  in  the  ptaabc  and  ceramic  package  rsapectivsiy. 
Sockaisd  plastic  or  ceramic  packaged  devices  should 
be  used  over  a  minimal  tamperature  range  for  optimum 
input  offset  voltsge  performance. 
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Customer  Application  Technical  Summary 

VI-lOO/200  DC  to  DC  Converters 


THERMAL  CONSIDERATIONS 


Vicor  manufactures  standard  component  power  converters,  that  are  the  analog  to 
very  efficient  three  terminal  regulators.  Cooling  must  be  provided  by  external 
means.  The  factor  that  must  be  controlled  by  the  system  designer  is  the  thermal 
resistance  of  the  baseplate  to  free  air,  which  in  turn  determines  the  baseplate  operating 
temperature.  The  thermal  resistance  of  the  baseplate  to  air  can  be  controlled  by 
maintaining  the  ambient  temperature,  moving  air  over  the  baseplate,  adding  a  heatsink 
to  the  module,  or  mounting  the  module  to  a  cold  plate  such  as  the  system  chassis. 

The  heat  that  is  dissipated  by  a  Vicor  converter  is  related  to  the  output  power  of  the 
module  and  the  efficiency  of  the  module.  Vicor  converters  are  among  the  most  efficient 
available  today.  They  are  also  the  smallest.  The  effective  dissipation  per  square  inch  of 
surface  area  can  be  very  high,  relative  to  traditional  types  of  supplies,  but  remains  very 
low  compared  to  power  transistors  and  complex  logic  circuits.  For  additional 
information,  consult  Vicor's  application  note;  Cooling  High  Density  DC/DC  Converters. 

The  following  variables  should  be  considered  in  the  design  of  an  effective  cooling  system 
for  Vicor  modules: 

■  Efficiency  of  the  module  (refer  to  data  sheet) 

■  Thermal  resistance,  baseplate  to  environment 
■  Maximum  ambient  temperature 
■  Amount  of  air  flow,  as  it  relates  to  thermal  resistance 


Figure  1.  Thermal  Resistance,  Baseplate  to  Free  Air 


Air  Row 
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100  LFM 
200  LFM 
300  LFM 
400  LFM 
500  LFM 
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700  LFM 
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VI-lOO/VI-200 
(No  Heat  Sink) 
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2.00°C/W 
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1.26°C/W 
1.15°C/W 
1.07°C/W 
0.99°C/W 
0.91°C/W 


VI-100/200  ADJUSTMENT  PROCEDURE 

Definition:  Adjustment  range  of  the  output  voltage,  as  a  jjercent  of  nominal. 

It  should  be  noted  that  several  specifications  are  a  function  of  nominal  output  voltage 
settings,  such  as  efficiency,  ripple  and  input  voltage  range.  In  general  as  the  output 
voltage  is  trimmed  down,  efficiency  goes  down,  ripple  as  a  percent  of  VqlT  go^s  up 
(although  actual  peak  to  peak  level  remains  essentially  constant)  and  lastly,  input  voltage 
range  widens  since  input  dropout  (loss  of  regulation)  moves  down.  As  the  units  are 
trimmed  up  the  reverse  of  the  above  effects  occur. 


All  Vicor  converters  have  a  fixed  current  limit.  As  the  output  voltage  is  trimmed  down 
the  current  limit  set  point  remains  constant.  Therefore,  in  terms  of  output  power,  if  the 
unit  is  trimmed  down  20%,  the  available  output  power  drops  by  20%.  Do  not  exceed 
maximum  power  rating  when  unit  is  trimmed  up  in  voltage. 


Vl-200  converters  have  a  very  wide  range  of  adjustability  that  can  prove  beneficial  to  the 
user.  The  output  of  a  VI-200  can  be  reduced  to  zero  volts  with  secondary  side  only 
circuitry.  Vl-200's  can  be  used  in  power  amplifier  applications  requiring  fast 
programmability.  Vl-200  converters  exhibit  a  rise  time  of  approximately  lOmS.  In  many 
instances  this  feature  will  provide  a  solution  for  those  systems  requiring  "odd"  output 
voltages.  Vl-200  converters  are  switch-mode  power  supplies,  therefore  a  load  is  required 
to  program  the  output  voltage  to  zero  volts.  Consult  catalog  for  additional  information. 
Although  VI- 100  converters  may  be  trimmed  down  in  excess  of  20%,  the  specified 
adjustment  range  is  -20%.  Vl-lOO's  are  not  characterized  for  operation  below  this  range. 


Both  series  of  converters  have  a  practical  limit  of  + 10%  on  trim  range,  due  to  a  fixed 
over-voltage  set  point.  Although  they  can  be  adjusted  up  higher,  the  output  may  run 
into  OVP.  In  practice  there  should  be  0.5  Volts  minimum  between  Vquj  and  OVP, 
ensuring  that  OVP  will  not  be  activated  during  transient  events.  This  is  very  important 
on  VI-200  converters,  since  the  OVP  is  of  a  latching  type. 

Please  refer  to  Figure  2,  for  the  correct  adjustment  procedure  for  VI-100  and  VI-200 
series  converters. 


Figure  2.  Adjustment  Procedure 
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RECOMMENDED  TRIM  VALUES  FOR  -  10H.  -  100H  TRIM  RANGE: 

t.1  «  Vncw  -  2.n  j 
3 


R1  and  R4  vary  as  a  function  of  input  voltage 
output  voltage  and  output  power 


Re  - 


REMOTE  SENSE  LINES 

Vicor  converters  provide  two  pins  (  +  S,  -  S)  that  allow  the  output  error  amplifier  to 
sense  output  voltage  so  that  output  voltage  may  be  accurately  defined  at  one  point.  This 
point  may  be  "local"  to  the  module,  or  it  may  be  "remote"  at  the  actual  point  of  load.  If 
the  sense  pins  are  left  unconnected,  the  output  voltage  will  be  above  nominal  and  load 
regulation  will  be  poor.  Although  sense  lines  may  be  of  any  length,  the  converter  w  ill 
only  compensate  for  a  finite  drop  in  the  output  lines.  Consult  data  sheet  for  remote 
sense  compensation  specifications.  Long  sense  lines  should  be  twisted  or  otherwise 
shielded  to  minimize  noise  pickup.  If  the  module  is  affected  by  noise  pickup,  capacitors 
should  be  added  from  each  sense  pin  to  its  respective  output  to  close  the  feedback  loop 
locally  (AC). 

CONNECTION  OF  BOOSTER  MODULES 

Power  boosters  are  used  in  applications  requiring  higher  output  current  than  an 
individual  driver  module  is  capable  of  providing.  VI-200  driver  modules  may  be  used  as 
boosters,  by  trimming  up  the  output  voltage  10%.  This  essentially  allows  the  unit  to  be 
controlled  by  another  driver  module.  Current  sharing  between  driver  and  booster 
converters  occurs  naturally  regardless  of  the  number  of  boosters.  Any  number  of 
boosters  may  be  added  to  a  driver  module.  Boosters  must  be  of  the  same  family  (Vl-lOO 
or  VI-200)  and  of  the  same  input  voltage,  output  voltage  and  output  power. 

Connect  the  converters  as  follows: 


JOTES: 

.  NC  =  Do  not  connect,  internal 
circuitry  may  be  present. 

Rt,  R2  installed  if  trim  desired. 
See  Adjustment  Procedure. 

•f»re  installed  only  if  drivers 
sed  in  respective  positions. 
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SAFETY  AGENCY  CONSIDERATIONS  (VI-200  Series) 

In  order  to  meet  the  requirements  of  UL  478,  CSA  22.2  and  TUV  (lEC  380),  certain 

precautions  must  be  excercised. 

1.  Input  Voltage:  Do  not  exceed  input  voltage  rating  of  converter. 

2.  Baseplate:  If  the  baseplate  of  the  converter  is  accessible  to  the  operator  of  the 
equipment,  ground  the  baseplate  to  chassis  ground. 

3.  Temperature:  Under  normal  operating  conditions  the  temperature  of  the  baseplate 
must  be  85  C  or  less  at  the  middle  mounting  slot  of  the  converter.  Temperature  must 
be  verified  at  maximum  system  load  and  maximum,  system  specified,  ambient 
temperature. 


4. 


Trimming:  Do  not  trim  output  voltage  higher  than  110%  of  nominal  rated  output 
voltage.  Do  not  exceed  rated  output  power  when  unit  is  trimmed  up.  If  converter  is 
trimmed  down,  maximum  output  current  is  constant,  therefore  totd  available  output 
power  will  be  less  than  rated  output  power.  Observe  the  same  precautions  when 
using  output  sense. 


5.  Overtemperature  Shutdown:  If  the  internal  temperature  of  the  module  exceeds 
90-105^C  the  module  will  shut  down.  The  module  must  be  cooled  down  and  input 
voltage  recycled  to  re-start  the  converter. 

6.  External  Protection:  Required.  Each  converter  must  be  fused  separately  with: 
Bussman  Mfg.  Co.,  PC-Tron  250V,  Max.  3A. 


ADDITIONAL  FILTERING  -  IF  DESIRED 

Vicor's  zero-current-switching  converters  do  not  generally  require  additional  filtering.  In 
applications  where  particularly  low  levels  of  noise  are  specified,  some  of  the  components 
shown  below  may  be  employed  to  advantage.  Consult  Vicor's  applications  engineering. 


NOTES: 

1.  Specific  values  vary  by  model. 

2.  C3  is  Aluminum  Electrolytic 
(Lossy). 

3.  lfL3,  C8  comer  frequency  is 
<65  KHz.  useRl,  C7. 

4.  Rl,  C7  (if  used)  comer 
frequency  should  be  <1  kHz 

5.  C4,  lOOOpf  ceramic  with  short 


INPUT  INPUT 

COMMON  MODE  OlFPERENTIAt 


OUTPUT 

DIFFERENTIAL 


GENERAL  APPLICATION  INFORMATION 

Label:  There  is  no  need  to  remove  the  label  on  Vicor  products.  The  thermal  drop  across 
the  label  is  very  low.  VI-200  series  converters  may  be  ordered  without  a  label  if  desired. 
If  the  converter  is  mounted  to  a  chassis  or  heatsink,  apply  a  5  mil  coating  of  thermal 
compound  to  the  label  surface,  or  use  GRAFOIL  thermally  conductive  sheeting.  Consult 
the  Vicor  Product  Catalog  for  ordering  information. 

Reverse  Input  Voltage:  Two  methods  exist  to  protect  against  reverse  inputs.  A  diode 
may  be  added  in  series  with  the  input  or  in  the  alternative,  fuse  the  individual  converter 
with  a  fuse  rated  at  no  more  the  2X  maximum  input  current  at  low  line,  and  add  a  shunt 
diode  across  the  input. 

External  Voltage  Applied  To  Outputs;  External  voltages  up  to  125%  of  nominal  output 
may  be  applied  when  unit  is  either  unpowered  or  disabled. 

Conunon  Mode  Noise:  The  small  amount  of  common  mode  noise  current  flowing 
between  primary  and  secondary  may  in  some  instances  cause  the  module  to  fail  to 
deliver  full  power  or  to  make  audible  noise.  In  this  event  bypass  the  baseplate  of  the 
converter  by  installing  a  lOOOpf  ceramic  capacitor,  with  short  leads,  between  ( - )  output 
and  the  base  and  ( - )  input  and  the  base. 

Measuring  Output  Ripple:  Output  differential  ripple  is  the  AC  component  present  on 
the  output  that  is  not  common  to  an  output  or  its  return.  The  most  accurate  way  to 
measure  this  parameter  is  to  power  the  converter  from  a  battery.  A  battery  is  used  to 
virtually  eliminate  common-mode  noise  that  is  often  confused  with  differential  output 
noise.  If  powering  the  converter  from  a  battery  is  not  feasible,  a  reasonably  accurate 
measurement  can  still  be  made  by  keeping  the  scope  ground  lead  as  short  as  possible. 
The  ground  lead  of  a  scope  has  inductance  that  is  not  present  in  the  signal  lead.  This 
differential  inductance  converts  the  common-mode  noise  into  differential  noise  as 
viewed  by  the  scope.  Vicor  converters  have  a  half  sine  power  pulse  that  is  filtered 
through  an  LC.  The  module  contains  no  discontinuities  in  secondary  side  voltage 
waveforms  that  create  high  dv/dt's  causing  output  "spikes",  virtually  eliminating  output 
"spikes". 
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VI-100/200  DC  to  DC  Converters 


THERMAL  CONSIDERATIONS 


Vicor  manufactures  standard  component  power  converters,  that  are  the  analog  to 
very  efficient  three  terminal  regulators.  Cooling  must  be  provided  by  external 
means.  The  factor  that  must  be  controlled  by  the  system  designer  is  the  thermal 
resistance  of  the  baseplate  to  free  air,  which  in  turn  determines  the  baseplate  operating 
temperature.  The  thermal  resistance  of  the  baseplate  to  air  can  be  controlled  by 
maintaining  the  ambient  temperature,  moving  air  over  the  baseplate,  adding  a  heatsink 
to  the  module,  or  mounting  the  module  to  a  cold  plate  such  as  the  system  chassis. 

The  heat  that  is  dissipated  by  a  Vicor  converter  is  related  to  the  output  power  of  the 
module  and  the  efficiency  of  the  module.  Vicor  converters  are  among  the  most  efficient 
available  today.  They  are  also  the  smallest.  The  effective  dissipation  per  square  inch  of 
surface  area  can  be  very  high,  relative  to  traditional  types  of  supplies,  but  remains  very 
low  compared  to  p>ower  transistors  and  complex  logic  circuits.  For  additional 
information,  consult  Vicor's  application  note:  Cooling  High  Density  DC/DC  Converters. 

The  following  variables  should  be  considered  in  the  design  of  an  effective  cooling  system 
for  Vicor  modules: 

■  Efficiency  of  the  module  (refer  to  data  sheet) 

■  Thermal  resistance,  baseplate  to  environment 
■  Maximum  ambient  temperature 
■  Amount  of  air  flow,  as  it  relates  to  thermal  resistance 


Figure  1.  Thermal  Resistance,  Baseplate  to  Free  Air 
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VI-100/200  ADJUSTMENT  PROCEDURE 

Definition:  Adjustment  range  of  the  output  voltage,  as  a  percent  of  nominal. 

It  should  be  noted  that  several  specifications  are  a  function  of  nominal  output  voltage 
settings,  such  as  efficiency,  ripple  and  input  voltage  range.  In  general  as  the  output 
voltage  is  trimmed  down,  efficiency  goes  down,  ripple  as  a  percent  of  VoUT  goes  up 
(although  actual  peak  to  peak  level  remains  essentially  constant)  and  lastly,  input  voltage 
range  widens  since  input  dropout  (loss  of  regulation)  moves  down.  As  the  units  are 
trimmed  up  the  reverse  of  the  above  effects  occur. 


All  Vicor  converters  have  a  fixed  current  limit.  As  the  output  voltage  is  trimmed  down 
the  current  limit  set  point  remains  constant.  Therefore,  in  terms  of  output  power,  if  the 
unit  is  trimmed  down  20%,  the  available  output  power  drops  by  20%.  Do  not  exceed 
maximum  power  rating  when  unit  is  trimmed  up  in  voltage. 


VI-200  converters  have  a  very  wide  range  of  adjustability  that  can  prove  beneficial  to  the 
user.  The  output  of  a  Vl-200  can  be  reduced  to  zero  volts  with  secondary  side  only 
circuitry.  VI-200's  can  be  used  in  power  amplifier  applications  requiring  fast 
programmability.  VI-200  converters  exhibit  a  rise  time  of  approximately  lOmS.  In  many 
instances  this  feature  will  provide  a  solution  for  those  systems  requiring  "odd”  output 
voltages.  VI-200  converters  are  switch-mode  power  supplies,  therefore  a  load  is  required 
to  program  the  output  voltage  to  zero  volts.  Consult  catalog  for  additional  information. 
Although  VI- 100  converters  may  be  trimmed  down  in  excess  of  20%,  the  specified 
adjustment  range  is  -20%.  VI-lOO's  are  not  characterized  for  operation  below  this  range. 


Both  series  of  converters  have  a  practical  limit  of  + 10%  on  trim  range,  due  to  a  fixed 
over-voltage  set  point.  Although  they  can  be  adjusted  up  higher,  the  output  may  run 
into  OVP  In  practice  there  should  be  0.5  Volts  minimum  between  VquT  ^nd  OVP, 
ensuring  that  OVP  will  not  be  activated  during  transient  events.  This  is  very  important 
on  VI-200  converters,  since  the  OVP  is  of  a  latching  type. 


Please  refer  to  Figure  2,  for  the  correct  adjustment  procedure  for  VI-100  and  Vl-200 
series  converters. 


Figure  2.  Adjustment  Procedure 
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-100% 

+  10% 

-100% 

R6 

92 

35 

46 

79 

167 

L2_ 

10 

10 

10 

10 

K  OHMS 


VI-100 


Vl-200 


RECOMMENDED  TRW  VALUES  FOR  <.  10H.  -  100H  TRIM  RANGE: 
M  *  1-1  *  Vnom  -  2.75 


Ri  and  R4  vary  as  a  function  of  input  voltage, 
output  voltage  and  output  power 


X  10K 


REMOTE  SENSE  LINES 

Vicor  converters  provide  two  pins  ( -t-  S,  -  S)  that  allow  the  output  error  amplifier  to 
sense  output  voltage  so  that  output  voltage  may  be  accurately  defined  at  one  point.  This 
point  may  be  "local"  to  the  module,  or  it  may  be  "remote"  at  the  actual  point  of  load.  If 
the  sense  pins  are  left  unconnected,  the  output  voltage  will  be  above  nominal  and  load 
regulation  will  be  poor.  Although  sense  lines  may  be  of  any  length,  the  converter  u  ill 
onlv  compensate  for  a  finite  drop  in  the  output  lines.  Consult  data  sheet  for  remote 
sense  compensation  specifications.  Long  sense  lines  should  be  tw  isted  or  otherwise 
shielded  to  minimize  noise  pickup.  If  the  module  is  affected  by  noise  pickup,  capacitors 
should  be  added  from  each  sense  pin  to  its  respective  output  to  close  the  feedback  loop 
locally  (AC). 

CONNECTION  OF  BOOSTER  MODULES 

Power  boosters  are  used  in  applications  requiring  higher  output  current  than  an 
individual  driver  module  is  capable  of  providing.  VI-200  driver  modules  may  be  used  as 
boosters,  by  trimming  up  the  output  voltage  10%.  This  essentially  allows  the  unit  to  be 
controlled  by  another  driver  module.  Current  sharing  between  driver  and  booster 
converters  occurs  naturally  regardless  of  the  number  of  boosters.  Any  number  of 
boosters  may  be  added  to  a  driver  module.  Boosters  must  be  of  the  same  family  (VI-100 
or  V1-2(X))  and  of  the  same  input  voltage,  output  voltage  and  output  power. 

Connect  the  converters  as  follows: 


NOTES: 

J-  NC  »  Do  not  connect,  internal 
circuitry  may  be  present. 

2.  Rl,  R2  installed  if  trim  desired. 
See  Adjustment  l^ocedure. 

3.  are  installed  only  if  drivers 
IVised  in  respective  positions. 
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SAFETY  AGENCY  CONSIDERATIONS  (VI-200  Series) 

In  order  to  meet  the  requirements  of  UL  478,  CSA  22.2  and  TUV  (lEC  380),  certain 

precautions  must  be  excercised. 

1.  Input  Voltage:  Do  not  exceed  input  voltage  rating  of  converter. 

2.  Baseplate:  If  the  baseplate  of  the  converter  is  accessible  to  the  operator  of  the 
equipment,  ground  the  baseplate  to  chassis  ground. 

3.  Temperature:  Under  normal  operating  conditions  the  temperature  of  the  baseplate 
must  be  85  C  or  less  at  the  middle  mounting  slot  of  the  converter.  Temperature  must 
be  verified  at  maximum  system  load  and  maximum,  system  specified,  ambient 
temperature. 


4. 


Trimming:  Do  not  trim  output  voltage  higher  than  110%  of  nominal  rated  output 
voltage.  Do  not  exceed  rated  output  power  when  unit  is  trimmed  up.  If  converter  is 
trimmed  down,  maximum  output  current  is  constant,  therefore  total  available  output 
power  will  be  less  than  rated  output  power.  Observe  the  same  precautions  when 
using  output  sense. 


5.  Overtemperature  Shutdown:  If  the  internal  temperature  of  the  module  exceeds 
90-105'^C  the  module  will  shut  down.  The  module  must  be  cooled  down  and  input 
voltage  recycled  to  re-start  the  converter. 

6.  External  Protection:  Required.  Each  converter  must  be  fused  separately  with: 
Bussman  Mfg.  Co.,  PC-Tron  250V,  Max.  3A. 


ADDITIONAL  FILTERING  -  IF  DESIRED 

Vicor's  zero-current-switching  converters  do  not  generally  require  additional  filtering.  In 
applications  where  particularly  low  levels  of  noise  are  specified,  some  of  the  components 
shown  below  may  be  employed  to  advantage.  Consult  Vicor's  applications  engineering. 


NOTES: 

1.  Specific  values  vary  by  model. 

2.  C3  is  Aluminum  Electrolytic 
(Lossy). 

3.  lfL3,  C8  comer  frequency  is 
<65  KHz,  useRl,  C7. 

4.  Rt,  C7 (if  used)  comer 
frequency  should  be<t  kHz 

5.  C4,  lOOOpf  ceramic  with  short 


INPUT  INPUT 

COMMON  MODE  DIFFENENTIAL 


OUTPUT 

DIFFERENTIAL 


GENERAL  APPLICATION  INFORMATION 

Label:  There  is  no  need  to  remove  the  label  on  Vicor  products.  The  thermal  drop  across 
the  label  is  very  low.  VI-200  series  converters  may  be  ordered  without  a  label  if  desired. 
If  the  converter  is  mounted  to  a  chassis  or  heatsink,  apply  a  5  mil  coating  of  thermal 
compound  to  the  label  surface,  or  use  GRAFOIL  thermally  conductive  sheeting.  Consult 
the  Vicor  Product  Catalog  for  ordering  information. 

Reverse  Input  Voltage:  Two  methods  exist  to  protect  against  reverse  inputs.  A  diode 
may  be  added  in  series  with  the  input  or  in  the  alternative,  fuse  the  individual  converter 
with  a  fuse  rated  at  no  more  the  2X  maximum  input  current  at  low  line,  and  add  a  shunt 
diode  across  the  input. 

External  Voltage  Applied  To  Outputs:  External  voltages  up  to  125%  of  nominal  output 
may  be  applied  when  unit  is  either  unpowered  or  disabled. 

Conunon  Mode  Noise:  The  small  amount  of  common  mode  noise  current  flowing 
between  primary  and  secondary  may  in  some  instances  cause  the  module  to  fail  to 
deliver  full  power  or  to  make  audible  noise.  In  this  event  bypass  the  baseplate  of  the 
converter  by  installing  a  lOOOpf  ceramic  capacitor,  with  short  leads,  between  ( - )  output 
and  the  base  and  ( - )  input  and  the  base. 

Measuring  Output  Ripple:  Output  differential  ripple  is  the  AC  component  present  on 
the  output  that  is  not  common  to  an  output  or  its  return.  The  most  accurate  way  to 
measure  this  parameter  is  to  power  the  converter  from  a  battery.  A  battery  is  used  to 
virtually  eliminate  common-mode  noise  that  is  often  confused  with  differential  output 
noise.  If  powering  the  converter  from  a  battery  is  not  feasible,  a  reasonably  accurate 
measurement  can  still  be  made  by  keeping  the  scope  ground  lead  as  short  as  possible. 
The  ground  lead  of  a  scope  has  inductance  that  is  not  present  in  the  signal  lead.  This 
differential  inductance  converts  the  common-mode  noise  into  differential  noise  as 
viewed  by  the  scope.  Vicor  converters  have  a  half  sine  power  pulse  that  is  filtered 
through  an  LC.  The  module  contains  no  discontinuities  in  secondary  side  voltage 
waveforms  that  create  high  dv/dt's  causing  output  "spikes  ",  virtually  eliminating  output 
"spikes". 
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Appendix  H  - 


Display  Board 


Appendix  H  - 


PCB  Schematics 


Appendix  H  - 


PCB  layouts 


Side  Scalel  50®/e 


Display  Board  RJS  2.0  PCB 
Wed,  Aug  9,  1989  5;43  PM 
Component  Side  Scale150% 


IlibDbli'a 


so  00^0000000 

S  N  M  ^  lA  u)  a 


»  A  r»  m  lA  ^ 


ooooooroTooo 


<M  lA  ^  a  a  r-  a 

oooooSoSL 


^^MtA^aat**aa9s£! 

ccOOOObOOOOOOOO 


bbb 


N  a  «•  a  a  r»  a 

ISSSSggL 


04  M  N 

-O  O  O  O 

CM  M*-,  OX.  r~ 

AO  (O  <Qb 


CM  lA  ^ 


a  a  a  a  a  a 

J^OOO  ^  ^ 

O"  • . i . O  O-""^' y— -"-"O 

CM-  ■>•■•«•  r<v  CM  i<i  «• 

'iaoo^  Ni80^^ 

-O  O  -O  -O  -O  0-0 

CM  «  to  to  in~.  tn 

AO  <0  >(0  <cb  ^ 

H 

-  »  r-  u>  u»  2"® 

^  35 


•0^0000  ^ 


— O  Jj"  M  w  «• 


*fl«0 


M  M  S 

O 

CM  M* 

‘©‘=0 


CM  CM 

O  O 

s  ~ 

CM— 

to  to 


a  r-  a  a 


oOOO~o 

CM 

CM  CM 

0  0 

CM  CM 

0  0 

b6m 

u 

%d6 

s_  ^ 

«0  *0 

CO 

%  %■ 

a  ^-  a  a 

0000 

a  a  a 

0000 

€o  io  ut 

0000 

a  r*-  a  a 

0000 

(SI 

o?«r  . 

Al 

CO-  <M  m  ^'O 

Ni^OO  . 

4^*A«<.>wwwvv*yvA^^^ 

CM 

IV  «  »*,:0 

N»«00  _ 

1 - Q 

CM 

CO. 

^996  _ 

MVVWVWSSVVWi^^ 

Display  Board  2.0  Layout 
Wed,  Aug  9,  1989  5:08  PM 
Component  Xray  Scale150% 


ACCUUEX 

A  METRABYTE  COMPANY 


41/2  Digit  Muiti-range, 

High  Resolution,  voltage  input  DPMI 
with  Enhanced  Contrast  LCD  Display 


HE/ITURES 

•  Multiple  Ranges  (User  configurable) 

•  large  I10  mmi,  4 1/2  Digit  Enhanced  contrast  LCD  Display 

•  Very  Low  Power  consumption  (17.5  milliwatts) 

•  Choice  of  Decimal  Point  Placement 

•  Extreme  Accuracy  (0.06%,  ±1  Digit) 

•  Common  Mode  Rejection  of  86  db  (min) 

•  very  Low  Cost 

•  World  s  Smallest  Size 

ARPLICRTIONS 

•  Automotive/Marine/Avionics/Aerospafe 

•  Reld/Moblle  instrumentation 

•  Pharmaceutical  Manufacturing 

•  Electronic  Test 

•  Biochemical/Biomedical  Research  &  Produa  Development 

•  Petrochemical  Process  Management 

•  Energy/Environmental  Management 

•  critical  Accuracy  voltage  Measurements 


EUNCriOMAL  OESeRIPTiON 

bthe  OP-2000  is  a  very  compact,  4 1/2  digit,  low  power  117.5  milliwatts), 
'LCD  Digital  Panel  Meter  covering  a  broad  range  of  critical  voltage  mea¬ 
surement  applications  for  the  industrial  seaor,  the  original  Equipment 
Instrument  Manufacturer,  and  other  areas  where  high  accuracy  and 


precise  resolution  over  extended  periods  are  crucial.  The  combination  of 
VLSI  components  and  ACCULEX's  well  Known  dedication  to  advanced  Sur¬ 
face  Mount  Technology  (SMT)  results  in  the  most  reliable,  lowest  cost, 
highest  resolution  LCD  Digital  Panel  Meter  available  from  any  source. 


The  DP-20(X}  is  a  multi-range  voltage  input  DPM  with  user  configurable 
full  scale  input  ranges  ( ±  200  mv  or  ±  2  Vdc)  and  choice  of  decimal  point 
placement,  using  a  dual  slope  integrating  A/D  converter,  differential 
input,  and  common  mode  rejection  to  86  db  (minimum),  the  DP-2000  is 
a  rock  solid,  state-of-the-art  0PM  designed  to  be  used  in  virtually  any 
environment.  Its  extremely  large  (10  mm  numeral  height)  enhanced 
contrast  4 1/2  digit  LCD  display  means  easy  readability  in  dim  light  as 
well  as  direct  sunlight  conditions.  Drawing  only  3.5  mA  @  -*-5  vdc,  the 
DP-2000  is  perfea  for  field/mobile  instruments,  marine,  aerospace/ 
avionics,  and  automotive  applications  as  well  as  for  general  purpose  lab¬ 
oratory  use  or  harsh,  factory  floor  environments.  The  DP-2000  features 
a  "LOW  BATTERY "  Indicator  (low  voltage)  as  well  as  automatic  polarity 
and  over/under  range  indication.  A  "HOLD  display"  pin  is  also  standard 
and  may  be  wired  to  a  momentary  contact  (pushbutton)  switch  for 
temporarily  "  freezing  "  the  display.  The  DP-2000  shares  the  same  overall 
dimensions  and  panel  cut-out  size  as  the  rest  of  the  acculex  micro-size 
LCD  DPM  family. 


Some  of  the  more  common  application  areas  for  the  DP-2000  are  petro¬ 
chemical  processing,  pharmaceutical  manufacturing,  biochemical/ 
biomedical  research  and  product  development,  plastics  manufacturing 
and  processing,  avionics,  marine  instrumentation,  automotive  instru¬ 
mentation,  food  processing,  energy  management,  environmental 
chambers,  electronic  test  and  burn-ln  chambers,  power  supply  monitor¬ 
ing,  power  transmissions,  medical  instrumentation  and  much  more, 

^CCuiEX  is  proud  to  offer  the  DP-2000  as  the  world  5  smallest,  most 
accurate,  and  lowest  cost  4  1/2  digit  LCD  Digital  Panel  Meter  m  the 
world.  And  like  all  ACCULEX  products,  the  DP-2000  is  available  from 
stock  in  quantity  or  singles 
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DR-2000  RIMOUT 
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RANGE  SELEa; 
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NOISE  REiECnON 
SWITCH: 


±200  mv  (PM  10  OPEN)  low  range 
±2  Vdc  (Pin  t)  to  -i-SVdc)  Mgh  range 

Pin  n  to  -i-s  Vdc 

May  be  adjusted  at  tero  Vdc 

nay  be  used  to  decrease  50/60  Hz  Hne  noise. 


Analog  I/O 

Input  configuration 
Full  scale  input 


Sample  interval 
Accuracy 

A/D  Converter  Type 
Input  Bias  Current 
Common  Mode  voltage 
Common  Mode  Rejection 
Input  Polarity 
Input  impedance 


Input  voltage 


Temperature  Coef . 

Display 

oispi^iype 
Number  of  Digits 
ntoUaySbo 
Over  Range  indication 
under  Ran^  indication 
Dlsitay  Pourity 
Display  HoM 
Display  update 
Decimal  PoMt 


Bipolar.  Fully  Differential 
OP-2000;  ±200  mV 
±2  Vdc 
DP-2002:  ±2  VdC 
±20  Vdc 
OP-2020:  ±20  VdC 
±200  Vdc 

2  readings  per  second 
0.06%  of  FS  ±1  Digit 
Dual  Slope  Integration 
so  pA  (typical) 

±1  Vdc  (max) 

86  db  (mini 

Bipolar,  automatic  changeover 
DP-2000;  KXX)  M  Ohms 
DP-2002;  1  Meg  Ohms 
DP-2020;  10  Meg  Ohms 
±10  Vdc  (max)  (OP-2000) 

±100V  (OP-2002) 

±350V  IOP-2020) 

±50  ppm/Deg  c  (typi  iOP-20001 
±75  ppm/Oeg  C  (all  others) 

Enhanced  contrast  LCD 
4 1/2  (19999,  max) 

10  mm 
1 

-1 

Positive  not  displayed  ("- "  for  negative) 
Pin  n  tied  to  -t- 5  Vdc  (pin  ii 
Pint!  Open 
4  Positions  (Selectable) 


aectrical/EnvIronmental 

Supply  voltage  -i-s  vdc  (±7%)®  3.5  mA 

other  LOW  Battery  indication  (low  voltage) 

StorageTbmp  -iOto60Degc 

Operating  Temp  0  to  50  Deg  C 

we^  30  grams 

Dimensions  2.33*IW)x1.14‘'(H)xO.83'(0l 

(59x29x21  mm) 
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OttOERIMC  GUIDE 

I  HI  I 


DP-2020 


c-12  (Connector) 


±200  mv 
±2  Vdc 


±2  Vdc 
±20  Vdc 


±20  Vdc 
±200  Vdc 


QUMMTITY  RRICIMC  (RER  UNIT) 


OP-2000  I  S90 


C-12 


fO-f 

as-f 

$85 

$79 

$3.50 

$3.25 

X 


DIMENSIONS,  PANEL  CUT-OUT, 
AND  MOUNTING  SUGGESTIONS 


Ts: 


TN  OP-176  nuy  N  mountN  Etft  or  widmit  tN  optionai  Bezel,  use  the 
foliowing  Sagim  and  dimensions  for  accurate  mounting. 


_  _*,STO,i _ 

AH  4  Of  these  micro-size  OPUS  have  the  same  external  dimensions  ii  & 
W).  only  the  depth  Is  different.  The  sugge^  mountbig  procedure  is 
quite  straightforward  since  tfm  have  an  Integrated  bezel  with 
ear"  type  mount.  The  0^660, 670,  and  2000  have  a  depth  of  «.5  mm 
whereas  the  OP-650'sd^  is  8.5  mm.  The  foNowlng  panel  cut-out  di¬ 
mensions  should  be  usM  for  accurate  mounting. 


+  0.010 
2.21  -0.000 

■(«  -o;^ 
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CUT-OUT 


■0.010 
1.02  -  0.000 

(oe  +0.05\ 
2®  -O.OO) 
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If  you  have  any  technical  queetiona  about  thia  product,  call  Mizar  Inc.  at 
(612)  224.8941  and  aak  for  the  "Technical  Support  Center". 
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Thank  you  for  being  a  Mizar  customer.  Mizar  would  like  you  to  join  our  Engineering  Design  Team  by  inviting 
your  suggestions  on  its  products  and  documentation.  Please  complete  and  return  this  self  addressed 
stamped  Customer  Report  Form. 


Product  No./Rev.  No. 


Manual  Rev. 


COMMENTS: 


Name- 

Company. 

Address- 


Title. 


Phone. 


i _ I 


City. 
State. 
Mail  Drop. 


-Zip. 


If  you  have  a  question  or  suggestion  that  requires 
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Engineering  Design  Team  at  our  Technical  Support 
Center;  (612)  224-8941. 
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to  ba  entirely  reliable.  However*  no  rasponslblllty  Is  assuaad  for 
Inaeouraolas.  Purtharaora*  Mlsar  reserves  tha  right  to  aaka  changes  to  any 
products  herein  to  laprova  reliability*  function  or  design.  Mlzar  does  not 
aasuaa  any  liability  arising  out  of  the  application  or  use  of  any  product 
or  circuit  described  herein}  neither  does  It  convey  any  Hoanaa  ladar  Its 
patent  rights  or  the  rights  of  others. 


Tha  HS574  A/D  converter  data  sheets  ara  reprinted  with  tha  peralsslon  of 
tha  Hybrid  Systaas  Corporation. 


Tha  A0524  Precision  AapUfler  data  sheets  are  reprinted  with  the  peralsslon 
of  Analog  Devices  Inc. 
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1.1  BOABD  aVBCIFlCniQBS 


Data  Tranafar  Moda:  Al6tDl6 

Intarrupt  Lavals:  Any  ona  of  1  to  7 


Oparatlng  Conditions: 

Powar  Consumption: 
Physical  Size: 


Tamparatura:  0  to  70^  C 
Hualdlty:  90S 

1.2  A  at  5V0C  typical 

l60mm  by  IQOsm  Single  Haight  Eurocard 


1.2  VIC8605  FoicixauL  DBcnpnan 

The  8605  analog  Input  board  provides  the  user  with  16  single  ended  or  8 
double  ended  analog  InputsCor  optionally  32  single  or  16  double  ended 
Inputs.)  A  general  description  of  the  board  Is  best  Illustrated  by  figure 
1. 


RNflLOG 

INPUTS 


Figure  1. 
Blook  Diagram 


The  analog  multiplexor  (1)  seleots  the  appropriate  analog  Input  channel  the 
board  Is  to  convert  next.  The  seleoted  signal  Is  then  applied  single  or 
double  ended  across  the  Instrumentation  amplifier  (2)  which  can  be  set  for 
gains  of  1,  10»  100»  1000  or  any  arbitrary  resistor  programmed  gain.  After 
being  amplified,  the  input  signal  Is  then  sampled  (and  held  during  the 
conversion  process)  (3)>  then  converted  to  the  digital  value  by  the 
successive  approximation  analog  to  digital  converter  (4).  When  the 
conversion  Is  complete  the  Interrupt  logic  (5),  (If  enabled),  informs  the 
CPU  of  a  completed  conversion. 
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CHAPIBR  2 


coiriGORmaM  goidb 


2.1  iwmwiciioii 

Tb«  VME860S  can  b«  configured  for  a  variety  of  applications  using  the  on¬ 
board  Jumper  bloclcs  labeled  K1  -  CIO.  These  Jumpers  are  used  to  specify 
the  base  address,  interrupt  request  levels,  amplifier  gain,  single  and 
differential  input,  and  analog-to-digltal  control  signals.  The  purpose  of 
this  chapter  is  to  describe  the  placement  of  these  Jumper  blocks  on  the 
board  and  to  explain  how  to  set  them  for  individual  user  applications. 

In  the  following  sections,  the  pins  in  the  diagrams  and  on  the  board  are 
numbered  such  that  pin  1  is  in  the  upper-left  corner  and  the  numbers 
increase  left-to-rlgbt  and  top  to  bottom  when  the  component  side  is  up  and 
the  PI  connector  is  closest  to  the  user.  This  convention  may  or  may  not 
agree  with  the  sohematlc. 

^  2.2  OOMPOMUff  PUCEHBR  and  JIMPSR  BLOCK  PLICEMIT 

Figure  2  shows  the  location  of  the  various  components  used  on  VME8605. 
Figure  3  shows  the  location  of  the  Jumper  blocks  on  the  board. 


MXZAl  lie 


PAGB  2-1 


that  this  block  (shown  in  figure  3)  la  configured  In  binary  and  that  a 
Jumper  In  place  represents  a  zero  In  that  respective  bit,  and  a  missing 
Jumper  represents  a  one  In  that  respective  bit.  Figure  3  also  shows  an 
example  of  K10  and  K8  configured  for  an  IRQ  level  of  4. 


ICS  1  Kll:  IRQ  CONFIGURATION 


-  M  OM  — 

PIN  1  □□□□□□□ 
K10  □□□□□□  □ 
IRQ  LEVEL  1234567 


K8-  INT.  PCK. 
02  □  □ 

01  □  □ 

00  □  □ 


IRQ 


EXAMPLE:  INTERRUPT 


OH  UM 


REQUEST 

KS 


LEVEL 

INT. 


4 

PCK. 


PIN  1  \  02  □  □ 

K10  □  □  □  (D  □  □  □(  L>  j  010-0 

LEVEL  1  2  3  4  5  6  7  ga  Q-o 


2.5  K2:  Input  impUflmr  Gain 


The  instrumentation  amplifier  gain  Is  set  using  Jumper  block  C2  (and 
an  external  resistor  Is  desired.)  Figure  4  shows  the  pinout  of  K2.  For 
proper  Jumper  configuration  see  the  Analog  Devices  AD524  data  sheet 
attached.  Note  that  an  optional  resistor  can  be  placed  In  position  R6  to 
set  other  gains.  (R6  Is  connected  from  RG1  to  RG2.}  For  a  gain  of  one, 
remove  all  Jumpers  from  K2.  ^ 


IC2:  INPUT  flnPLIFIER  GRIN 


PIN  1 

RGl  □  □  f<G2 
G10  □  □  RG2 
G100  □  O  '?G2 
G1000  □  □  RG2 
PIN  7 


2.6  K1  li  CT:  Slnsle/Dlffereatlal  Input  Seleotlom 


Two  Jumper  blocks  K1  and  K7  determine  the  Input  node  of  the  board. 
Below  Is  shown  the  proper  Jumper  connections  of  K1  and  K7  for  single  and 
differential  Input  operation. 


ICl  4IC7:  SINGLE/OIFFERENTIRL  INPUT 


K1  K7 

PIN  1  B-B  □ 

SINGLE  I  i  ° 

ENDED  mW 
PIN  5  - 


K1 

PIN  1  C3-0 
DIFFERENTIRL  0-0 
□  □ 
PIN  5 


<7 

tv 
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CHAPKB  3 


PROGRAMfllG  GOIDB 


3.1  DRiGoocnan 

This  chapter  will  cover  a  variety  of  topics  relating  to  the  proper 
programming  and  operation  of  the  VME8605  board.  Included  will  be 
discussions  on  register  addresses,  conversion  operations,  calibration  and 
other  topics. 


3.2  mnsaaa 


The  8605  has  6  registers  beginning  at  the  base  address  as  follows: 


Address  Name  R/V 

0  Converstrt  H 

2  Chanselect  W 

2  AnalogRO  R 

4  Intlevel  U 

6  Intenable  W 

8  Intdlsable  W 


Function 

Start  a  conversion 
Select  a  channel 
and  start  a  conversion 
Analog  to  digital  value 
Interrupt  vector 
Enables  Interrupts 
Disables  Interrupts 


Length  (bits) 

16  (all  Ignored) 

16  (upper  11  Ignored) 

16  (lower  12  valid) 

16  (upper  8  Ignored) 
16  (all  Ignored) 

16  (all  Ignored) 


Note  that  all  registers  are  16  bits  long  although  some  bits  are  Ignored. 
For  proper  operation,  all  writes  and  reads  to  the  board  must  be  16  bits 
long,  l.e.  WORD  operations.  If  other  than  word  operations  are  performed, 
the  board  will  not  respond. 


3.3*1  ConemrmlOD  Opermtlon 

Note  that  to  start  a  conversion  either  the  converstrt  register  can  be 
written  to  or  the  channel  select  register  can  be  written  to  with  the 
selected  Input  channel.  Once  a  conversion  has  been  started,  do  not  write 
to  the  chanselect  or  converstrt  reglsters<»thls  will  re-start  the 
conversion  before  It  has  a  chance  to  complete. 

The  analogRD  register  la  organized  as  shown  In  Figure  x  below. 

CIP  MSB  MSB  MSB  ^  MSB  10  9  8*7  6  5  4  '  3  2  1  LSB 

The  convert  In  process  (CIP)  bit  Is  set  If  a  conversion  Is  talcing  place  and 
clears  when  done.  Polling  this  bit  until  It  clears  Is  one  way  of  testing 
for  a  complete  conversion.  Note  that  the  most  significant  bit  of  the 
conversion  is  brought  out  to  bits  11  through  14,  and  that  all  of  these  bits 
may  be  optionally  Inverted  by  Jumper  block  K6. 
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3.%  CAUBRATiai 


Calibration  of  the  8605  conaiata  of  nulling  the  inatrumentatlon  aaplifler, 
the  aample  and  hold  clrculta,  and  adjuating  the  offaet  and  gain  of  the 
analog  to  digital  converter.  To  begiUt  Jumper  all  blocica  as  dealred  except 
blocka  K1  and  k2.  Refer  to  figure  2  for  reaiator  locationa. 


3>^>1  InaitruBentmtion  Amplifier  lulllDg  Procedure 

1.  Set  the  gain  of  the  inatrumentatlon  amplifier  to  one— remove 
all  Jumpera  from  K2  and  remove  R3  if  it  ia  in  place. 

2.  Jumper  pin  2  to  plna  4  and  6  of  R1. 

3.  Adjuat  the  output  offaet  null  (R4)  until  pin  9  of  U6  ia  0.000  V. 

4.  Set  the  gain  of  the  inatrumentatlon  amp  to  1000— place  a 
Jumper  acroaa  pina  7  and  8  of  K2. 

5.  Adjuat  the  input  offaet  null  (R2)  until  pin  9  of  U6  la  0.000  V. 

6.  Repeat  atepa  1  through  5  until  a  aatiafaetory  null  point  la 
reached 


3.4.2  Sample  and  Bold  KalUng 

Becauae  the  aample  and  hold  network  la  in  the  hold  mode  except  when  a 
conversion  ia  started,  a  small  software  routine  is  required  to  cause  the 
network  to  continuously  sample.  This  is  done  by  a  loop  that  continuously 
starts  a  conversion.  Vith  this  loop  running  and  pin  9  of  06  near  zero, 
adjust  R7  until  the  output  of  the  sample  and  hold  network  (pin  1  or  4  of 
K3)is  the  same  as  pin  9  of  06. 


3.4.3  Analog  to  Digital  Chip  Calibratioo 

The  best  description  of  analog  to  digital  calibration  is  presented  in  the 
attached  Analog  Devices  AD574  data  sheet.  To  perform  the  calibration  a 
small  software  routine  ia  needed  to  continuously  perform  conversions  and 
read  the  results  (This  can  be  the  same  routine  used  in  the  sample  and  bold 
nulling  section.)  Run  this  routine  and  examine  the  converted  value  for  use 
in  the  procedure  outlined  in  the  data  sheet. 


3.4.4  Resistor  table 

R3:  Optional  instrumentation  amplifier  gain  resistor. 

R5:  Input  offset  null  for  the  instrumentation  amplifier. 
R6:  Output  offset  null  for  the  instrumentation  amplifier. 
R7:  Sample  and  hold  offset  null. 

R10:  Analog  to  digital  unipolar  offset. 

Rllt  Analog  to  digital  bipolar  offset. 

R12:  Analog  to  digital  gain. 
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3«8  DffOBTlIT  mm  Ftffi  8605  Rerialocui  A,  B,  and  C 

Due  to  an  irregularity  In  the  timing  of  the  Hybrid  Systems  analog  to 
digital  converter,  it  is  possible  that  the  Convert  in  Process  bit  (CIP  bit) 
may  indicate  valid  data  up  to  100nS  before  the  data  in  the  analogRD 
register  is  actually  valid.  This  would  cause  false  data  to  be  read  if  the 
read  operation  occurred  during  this  interval. 

To  avoid  this  situation,  it  is  suggested  that  the  analogRD  register  be  read 
again  after  the  CIP  bit  is  detected  low.  This  delay  will  guarantee  valid 
data  for  the  second  read. 

Note  that  in  interrupt  mode,  the  built  in  delay  of  the  lACK  cycle 
(triggered  off  of  CIP)  is  sufficient  to  provide  valid  data  the  first  time 
the  analogRD  register  is  read. 


3.9  Progra—lng  Kzaaplms 


The  following  program  is  a  straight  forward  example  of  starting  the 
conversion  process  and  checking  for  the  CIP  bit  an  appropriate  amount  of 


time  until  the  process  is  finished. 
%rill  halt  execution. 

***  Define  Constants 

ioapaoe  s  $ffff0000  < 

•••  Program  Begins 

lea  iospace,at 
clr.l  dO 
clr.l  d1 

move.w  #$00,2(a1) 
move.l  #$200, d1 
readlop:  move.w  2(a1},d3 
bpl  convek 

dbf  d1, readlop 
readerr:  stop  #$2700 
convokt  .... 


If  an  error  should  occur,  the  program 


address  of  board 


load  reg.  a1  with  short  I/O  address 
initialize  registers 

e  •  • 

start  conversion  on  channel  0 
set  counter 
read  AnalogRD 

if  CIP  bit  s  0,  conversion  is  done 
digital  value  is  in  lower  12  bits 
decrement  and  branch  200  times  waiting 
conversion  not  done,  abort  operation 
continue  with  progz^ 


3«9«1  iDtmrropt  Program  Bzampla 

This  next  example  shows  one  of  the  ways  to  set  up  and  use  interrupts. 
Please  note  that  the  address  for  *vect6'  is  specific  to  Mizar's  VME8900 
debug  monitor  and  may  need  to  be  different  for  other  applications. 
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THBon  or  apBRinoi 


4.1  nnooucncH 

This  chapter  provides  the  user  with  a  brief  overview  of  the  operation  of 
the  VNE8605  board,  giving  Insight  Into  how  the  board  performs  some  of  Its 
various  functions.  It  Is  provided  for  those  who  desire  a  more  detailed 
explanation  of  the  processes  Involved  and  Is  not  required  for  the 
understanding  or  programming  of  the  board's  functions. 

It  Is  assumed  that  the  reader  has  some  knowledge  of  the  VMEbus 
Specifications  and  that  he  has  a  general  knowledge  of  the  Interaction 
between  electrical  components.  The  user  should  refer  to  the  schematic  and 
the  PAL  equations  during  the  following  discussion. 


4.2  ABBBPSHG  and  DATA  OmATIOB 

The  VME860S  Is  designed  to  respond  to  16  bit  addresses  In  the  VMEbua  short 
I/O  addressing  range.  This  addressing  range  Is  specified  by  address 
modifier  codes  $2D  or  $29  •  one  of  which  is  outputted  by  the  CPU  depending 
on  whether  It  Is  In  the  user  or  supervisor  state. 

Jumper  block  K9  specifies  the  high  byte  of  the  board  address  determined  by 
the  user  and  has  Its  signals  fed  Into  025,  an  octal  comparator.  If  a  match 
Is  found  between  K9  and  address  lines  A8  -  A15,  pin  19  of  025  will  go  low. 
This  signal,  called  /HAM  Is  fed  Into  PAL  026  where  It  used  in  conjunction 
with  the  address  modifier  codes  to  determine  If  the  8605  is  being  selected. 
If  It  Is  026  generates  /AMATCH  which  feeds  Into  PAL  021  and  is  used  along 
with  address  line  A1  •  A3  to  determine  which  (Alp  or  register  Is  desired. 
These  address  lines  come  from  the  VMEbus  via  027,  an  octal  bus  driver. 
Note  that  026  also  acts  as  buffer  for  the  read/write  line  from  the  VMEbus. 

Data  lines  between  the  bus  and  the  board  are  controlled  by  028  and  029, 
octal  bus  trancelvers.  The  direction  of  data  flow  Is  controlled  by  a 
signal  called  /BUSBD  which  comes  from  PAL  022.  If  BOSRD  Is  low,  data  goes 
onto  the  bus  from  the  board.  If  BOSRD  Is  high  the  boaz*d  receives  data  from 
the  bus.  These  chips  are  activated  whenever  data  goes  to/fora  the  bus. 

019  and  023  are  octal  drivers  that  buffer  the  data  lines  between  010,  the 
HS574  chip,  and  the  bus  data  buffers.  These  chips  are  enabled  by  the 
signal  /AHEAD  from  PAL  021  which  Indicates  that  the  HS574  la  to 
setiU/recelve  some  data.  024  is  used  as  a  register  to  hold  the  Interrupt 
vector  value.  018  Is  the  data  buffer  for  the  channel  select  value  enabled 
by  /CHSEL  from  PAL  021. 

Each  of  the  above  chips  are  activated  by  their  respective  signals  which  are 
generated  from  a  combination  of  /AMATCH,  several  control  signals  from  the 
VMEbus  and  a  particular  combination  on  address  lines  A1  -  A3. 
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Complete  12-Bit,  25juSec  A/D  Converter 

with  /^P  Interface 


FEATURES 

■  Comptate  12-Bit  A/0  Convener  with 
Reference,  Clock  arvl  Tbree-siate  Outputs 

e  Full  &-  or  16-Bit  Microprocessor  Bus  interface 
e  ISOnSec  Bus  Access  Time 
a  Guaranteed  Lineanty  Over  Temperature 
a  No  Missing  Codes  Over  Temperature 
B  Fast  Conversion  —  25MSec 

a  Precision  Reference  for  Long-Term 
Stability  and  Low  Gam  T.C. 

a  Hermetic  2&-Pin  Metal  or  Low  Cost  Epoxy  DIP 
a  Low  Power  600mW 

DESCRIPTION 

The  HS  574  is  a  complete  l2-bit  successive-approximation 
analog -to-digitai  convener  witti  three-state  output  Duffers  for 
direct  mtenace  to  8-  or  i6  Dit  mtcroprocessor  Duses  The 
HS  574  IS  implemented  witn  advanced  Dipolar  ana  CMOS 
LSI  chips  resulting  m  maximum  performance  at  lowest  cost 
The  SAR.  i2  Dit  oecodeo  D/A.  control  logic,  switches  and 
buffers  are  fabncaied  using  CMOS  processing  for  lowest 
power  A  unique  comparator,  reference  and  reauired 
amplifiers  are  fabricated  uang  linear  bipolar  processes 
for  maximum  speed  and  reduced  offset  ana  drift  over 
temperature 

Incorporating  a  unique  precision  comparator  design,  tne 
HS  574  offers  several  advantages  over  more  conventional 
circuits  Advantages  include  lower  input  impedance  variation 
from  device  to  device,  faster  conversion,  lower  initial  offset, 
and  lower  parametric  drift  over  temperature  A  proprietary 
decoded  l2-bii  0/A  provides  increased  accuracy  lower  drift 
and  reduced  output  noise  over  the  A/0  operating  range 
Precision  low  TCH  laser  trimmed  resistors  are  used  m  the 

FUNCTIONAL  DIAGRAM 


converter  for  setting  cncal  performance  parameters  in¬ 
cluding  gam.  offset,  input  ranges,  and  accuracy 

hS  574  IS  offered  m  a  hermeticaJly  sealed  package  for  use 
over  a  wide  temperature  range  and  tor  MIL-STD-883  re- 
duirements  The  tower  cost  proprietary  commerciaJ  package 
IS  offered  tor  applications  not  requiring  the  wider  temperature 
exposure. 

The  HS  574  is  available  m  6  product  grades  The  HS  574j.  K 
and  L  are  specified  over  a  temperature  range  of  0°C  to 
70°C  while  the  HS  574S.  T  and  U  are  specified  over  the 
MIL  temperature  range  -SS^C  to  125®C.  All  'B  "  versions 
of  the  HS  574  are  fully  screened  to  MIL  STD-883B  and  are 
processed  m  accordance  with  Method  5008  1.  All  units  that 
are  not  specified  as  "B"  (883B  processing)  are  rigorously 
tested  including  full  power  burn  m  at  •♦•85“C  Hybrid 
Systems  guarantees  Acceptable  Quality  Level  (AQL)  of  0  4% 
tor  all  commercial  models  which  means  that  mere  are  no 
rejects  in  a  sample  tot  of  100  pieces.  That's  more  than  twice 
as  tough  as  it  has  to  Pe  —  even  for  military  applications 
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Anang  Common 
20V, M  to  Analog  Common 
REF  OUT 


Qto  « t6SV 
Oto  -  tesv 
Oto  •TV 
*tv 


OSVioVloqic  *0  5V 


t  '6  5V 


tJav 

inoaliniw  Shan  to  common 
Momentary  snort  to 

TSOmW 


300*C.  tOSac 


CONTROL  FUNCTIONS 

The  HS  574  contains  all  control  funaions  necessary  lo  proviOe  lor 
comotete  mtcroprocessor  interface  arto  also  stand  alone  ooeration 
including  continuous  conversions.  All  control  funaions  are  defined  m 
Taoie  1  and  Table  2. 


Function 

Oetmition 

Function 

CE 

Oi«  Enaoie 

'  Typically  usao  as  cwck 
syncnromzanon  wiin  uP 

2  Muai  be  rugn  (t)  tor  a  conversion 
to  start 

3.  Musibenign(t)toraaadawon 

eioouiou. 

4  jT  tranaeon  may  be  uaad  to 
«yiiaia  conyarsMn 

c? 

CNpSaiaa 

t.  Typcaey  the  adOraaa  pn  whan 
used  wan  iP 

2.  MuatOaiow(0)loraconiier*onio 
san  or  read  data  at  me  output. 

3.  ^  iranaaon  may  Da  uaad  to 

conuvson 

Rie 

RaeaConiian 

t  maiata  eonyaraon 

2  j  matearaad 

*0 

Addtaas 

1.  Saiaca  eonyaraon  mode  t2Bas 
ilowtO)  aatsShightU 

2.  kt  lead  mods  Agsaiaeis  eta  ou- 
eu  tamtai.  e  low  (0)  man  a  MSB's 
fvgh  and  maaea  byiat  or  4  Ngh 
(1 )  man  onty  low  byta  and 
eMngaaroB. 

l2lS 

Aapui  Format 

t  May  be  nan  waao. 

2  Nemial  i2Bitlonnat4hqn(l). 

1  ABaiiamaiaasatby  Ag 
*f0w(0J 

Table  1.  (Mining  ttm  Comnl  funcUom 


1  CONTROL  e«PUTS 

HS574  0PBUTI0N 

CC 

mni 

R/C 

■PTM 

■a 

0 

X 

X 

X 

X 

NoOesrabon 

X 

1 

X 

X 

X 

NeOparaaon 

1 

0 

1- 

X 

0 

babsMa  Ig-Blt  Comraiawn 

1 

0 

x 

X 

1 

MMMw  CofMWon 

0 

0 

X 

mm 

MdiaMa  ta-BIt  Contianon 

0 

0 

X 

1 

WI  ^dOnWeWV 

1 

KH 

0 

X 

0 

■Z=IEI3Z=3il 

1 

mm 

0 

X 

1 

leMVHB  v*vii  Lbbin^wan 

1 

■ 

T 

Pin  1 

II 

1 

J- 

Pints 

0 

1 

H 

r 

Pm  IS 

t 

EnaMaa  4  LSrt  and 

4  TraAng  2>toa 

NOTSS 


eyta 


Table  2.  MS  574  Trutfi  TaMe 


Power  OeaaMMXt 

Laao  TamoaraMe  SoMarng 


CONTINUOUS  CONVERSION 

Raquirtmtnts  fof  sail  Iriggtfad-continuous  conv«rsi<xis  afa  poouiar 
apotcaiiona  lof  an  analog  to  digiial  convener,  see  f=ig  3 


figure  3.  Continuova  Conversion 
Top:  DATA  BUS  12  Bita  or  greaiar 
Bottom:  DA  TA  BUS  8  Bits 

iS and  Ag  are  tied  low  (0)  wtvle  12/9  is  tied  high  (t)  to  select  the 
converter  and  enable  a  i2  Bit  conversion  Note  A,  is  don  i  care  m 
the  truth  table. 

CE  IS  connected  to  a  iirQ  and  0.  Iirf  mtegraior  as  shown,  this  en¬ 
sures  an  irvtial  conversion  on  power  up  C£  wiH  see  a  risng  edge 
which  WIN  initiate  a  conversion  (^*0.  R/C  ■(}).  The  RC  network  wilt 
then  integrate  the  initial  t  a)  the  output  at  the  first  invener  caueng  a 
delay  m  the  R/C command.  Altar  the  tirsi  conversion,  continuous 
conversions  are  caused  by  delaying  the  STATUS  (STS)  into  R/C 
Attar  the  cortversion  is  complete  the  output  data  lines  corhe  out  ol 
tri-staie  approximately  TOnS  after  STS  goes  low  (DONE).  Data  will 
remain  valid  (from  previous  conversien)  l(X)nS  after  the  new 
R/C  1.command  which  allows  lor  the  positive  edge-f  triggered 
data  to  be  loaded  into  the  external  butler  (7SLS374  or  equivalent) 

Using  the  R  C  network  as  shown.  1  5mS  is  allowed  between  conver¬ 
sions  Shorter  times  can  be  used  but  a  longer  time  will  causa  long 
nsa  and  tall  ol  the  ftiC  line  and  the  dock  input  to  the  butler  The 
setup  time  lor  me  laicn  shown  is  20nS  and  me  hold  time  is  OnS 

The  user  may  access  the  octal  latches  asynchronously  by  means  ol 
me  OUTPUfEMABLE  (CONTROL  OUTPUT)  ime  The  data  will 
always  be  valid,  tor  a  I2'bii  cortversion.  Using  this  method,  data  wiH 
always  be  currerit  and  the  STATUS  bit  need  not  be  tested  lor  valid 
d«a 


USING  THE  AoUNE 

The  state  ol  the  A,  hne  ai  the  start  ol  a  conversion  places  me 
HS  574  in  either  a  lull  12-bit  conversion  or  m  an  0-bit  snort  cycle 
mode.  During  a  READ  at  the  end  ol  a  conversion  the  A^  line  is  used 
to  the  format  ol  the  data  as  follows: 


I.  Pror  to  Conversion 


Aq"  ’ 

Ao"0 

2.  After  Convorsion  (READ) 
Ao“l 

Ao-0 


In  a  iiP  application  the  Ag  line  can 
locations  as  follows 


MODE 

Shan  cycle  8  (xt  convennn 
Full  1 2  bx  conversion 

Dus  •  Low  Byte  (LS8) 
louowea  by  zeros 
Oats  •  Hign  Byte  (MSB'i) 
loiiowea  Dy  nvodie  eno  low  Oyie 

be  considered  a  pair  of'wR 


1.  Pnor  to  Conversian  (WRITE) 

55fl  »  0  in  low  edorets  (Ag  •  0) 
WflwO  in  hign  aodrest  (Agw  i) 

2.  After  CorwersMn  (READ) 

m  t  tn  either  aodress  (Ag  ■  X) 
Jr  •  1  m  ngn  aaorese  (A,  ■  1) 
WRa  t  m  low  addrase  (AgwO) 


MODE 

Full  12  M  conversion 
Shon  cycle  8-M  conversion 

Full  t2-be  word  with  t2^a  t 
LS3't  &  zeros  when  t2MmO 
8  MSS'e  only  when  l2/8a0 


INTERFACING  THE  HS  S74  WITH  MIT  MICROPROCESSORS 

T)te  HS  574  which  has  I2  bil  data  can  be  used  directly  with  popular 
8-bit  nrsaoprocasaors.  The  data  however,  must  be  multiplexed  by 
saning  the  output  mode  select  1 2/9  pm  to  GNO. 

In  the  first  case,  a  6800  (or  6502)  is  used.  See  Figure  4 


The  STATUS  (STS)  is  tied  directly  to  TURT which  is  the  interrupt  hne. 
When  STS  goes  to  0  (at  the  end  ol  a  conversnn)  the  6800  may 
either  service  the  interrupt  or  be  timed  lor  30mS  (since  ttusiKEo  is 
software  maskable)  the  time  required  lor  a  conversion. 

Figure  5  shows  the  8080A  nP  as  mtartacad  with  the  HS  574  In  this 
case,  a  8228  controller  is  shown  with  gates  to  generate  needed 
SKjnais. 


figure  3.  tnisrfecing  (he  HS  374  and  8080A  ttP 


N<n«3 


-fiyo 


t 

13/t 

tTI  tS 

3 

MMSHiVTt 

4 

A. 

>4.37 

f 

fUtS 

moou9tn 

• 

cs  HS  974 

(.OW  tYtl 

tt 

WM 

• 

wout 

11 

elV  1 

1] 

lOVw 

•  7 

14 

lovm 

UUCOM 

•  tiv  11 

=0 


2.  To  incTMM  •djuMmtnt  rangt; 

■)  Chtng*  fl3  to  33hO,  ano  H3  to  3000. 
b)  Add  tonoo  rotnior  100Q  to  tSV  input  wM  2000  to 
i  tov  Input. 

Figun  8t>.  Uwpolv  Input  Cannuctiona 
with  Trim  Adiuttmunt 


ZERO  AOJUSTMCNT  PROCEDURE 

1.  Fty  untpoiv  rangm; 

a)  Sat  input  vottaga  praoaaiy  to  >  WLS8. 

b)  Aojual  zaro  control  until  oonvtftar  la  switching  from 
OOOOOOOQQOOO  to  000000000001 . 

2.  Pbr  bipolar  rartgaa: 

a)  Sat  input  voitaga  praoaaiy  to  </!iLS8  above  —  F  S 

b)  Adfuai  zero  control  until  convener  la  awitcbmg  from 
000000000000  to  000000000001 

OAM  AORmiierr  PROCEDURE 

1 .  Set  input  voitaga  praciaaiy  to  v^US8  lasa  than  'aH  bits  on'  vaiua. 
Note  mat  tins  IS  I'/iiLSB  less  than  nominal  Ml  scale. 

2.  AOiusi  gam  control  uniS  convener  s  svMtcbing  from 
11111111111010  111111111111. 


Table  4  summanzes  the  zero  and  gam  admatment  procedure,  and 
shows  the  proper  input  test  voltages  used  m  calibrating  the 
HS  574 


input 

Vottage 

Range 

Adjust- 

ment 

Input 

Voltage 

Adjust  input  to  point 
where  converter  ia 
just  on  the  verge  of 
switching  between 
the  two  codes  shown.' 

4 

Oto  •.20V 

ZERO 

2.44mV 

000000000001 

GAIN 

19.9927V 

111111111110 

111111111111 

0  to  10V 

ZERO 

l.22mV 

000000000001 

GAIN 

9.9g63V 

111111111110 

111111111111 

tsv 

ZERO 

-4.9988V 

000000000000 

000000000001 

GAIN 

4.99S3V 

111111111110 

111111111111 

tiov 

ZERO 

-9.9978V 

000000000000 

000000000001 

GAIN 

9.9927V 

111111111110 

111111111111 

■Codes  shown  are  natural  binary  for  unipolar  input  ranges  and  off¬ 
set  binary  lor  bipolar  ranges. 


Tnbt»4.  CaUbntion  Dttm 


POWER  SUPPLY  CONSIDERATION 

Power  suppliea  used  lor  the  HS  574  should  be  aalected  lor  low 
noise  operation  In  pamcular  they  should  be  free  of  high  freouency 
noise.  Unstable  output  codes  may  result  with  nosy  power  sources.  It 
IS  imponant  to  remember  that  2.44mV  is  ILSB  lor  a  10  voii  input 

Decoupling  capacitors  are  recommended  on  all  power  supply  pins 
located  as  dose  to  the  convener  as  possible.  Suitable  decoupling 
capacitors  are  lOpF  tantalum  type  m  parallel  with  0  I^F  disc 
ceramic  type. 

OROUNDINO  CONStOERATIONS 

The  analog  common  at  pm  9  is  the  ground  relerencs  point  lor  the 
internal  relarenca  and  is  thus  the  high  quality  ground  lor  the 
HS  574:  It  should  be  conneaed  directly  to  the  analog  reference 
point  of  the  systam.  In  order  to  achieve  all  of  the  hign  accuracy  per¬ 
formance  available  from  the  HS  574  m  an  anvironmeni  of  hign 
digsal  nose  content,  it  is  recommended  that  the  analog  and  digital 
commons  be  connecied  together  at  the  package.  In  some  situa¬ 
tions.  the  digital  common  at  pm  1 5  can  be  connected  to  the  most 
convemem  ground  reference  point:  artalog  power  return  «  pre¬ 
ferred.  II  digital  common  contains  high  frequency  noise  beyond 
200mV.  this  noise  may  lead  through  the  converter,  so  that  some 
caution  wiH  be  requred. 

It  IS  also  importani  m  the  layout,  to  carefully  considor  the  placement 
of  digital  lines,  it « recommended  that  digital  Hnas  not  be  run  direct¬ 
ly  under  the  574  For  optimum  system  performarxte.  if  apace 
perrms.  a  ground  plane  is  advised  under  the  574.  This  should  be 
conneaed  to  a  digrtai  ground.  Rnaily.  m  packaging  the  assembled 
574.  the  designer  should  also  try  to  mimmizo  any  capaobve 
coupling  mat  might  occu  at  the  top  to  the  device. 


APPBIDIX  B 


AD521I  DATA  SBBBTS 


MzzAi  nc 


AOVANCK  TCCHNiCAL  DATA 


A0524  FUNCTIONAL  BLOCK  OIACRAM 


FfATUraS 

Low  NowMw— rWy:  O.OOB%  (0  a  1) 

CMWI:  ISOdI  (0  >  10001 
Low  OffMt  V«lu«o;  SOhV 
Low  Ofhol  VoKo«o  OrM:  O.BhV/*C 
OoMi  BoflrfwWtli  FiodiMt:  29MHI 
Hn  FrooromnioOlo  Oakw  W  1,  10.  100. 1000 
CBOiptoW  Inout  Ft— How,  Foww  Ow  -  Fowor  Off 
No  I—mol  Cow —wo—  ffooi—d 
httortwOy  Coiwpowo— < 


nooucT  oEsaumoN 

TIm  AOS24  i«  *  pnc—B  maoalithic  lauracncoMaoo  anpiiAir 
doigaod  for  d$u  wniiwiiina  lOpticiiMOi  roottiriao  hi(h  acxuncy 
—or  woni—o  oponnoo  cnwdhioni,  Ao  Botwmdiiio  emb— • 
—  of  hish  Uatonry.  high  coi— on  laedo  rtweaoo,  low  oAii 
Tohioi  dnA.  Md  low  n—  onkn  tlw  A0524  wimMf  hrumm 
moay  dau  KOimmaa  lyiitma. 

Tht  AD124  h«  a  oatpw  offiwi  wftaor  dnft  of  Im  I— 20»V.‘*C 
opoi  ofliNt  —tot  dnft  of  —  ihin  0.5wV/*C  CMK  tb— 
WdBMMKrpialUOdBwa  «  lOOOl  Md  — — am  t—K— nty 
af0.0in%M<i  -  I.  la  addition  10  ibfOMtModiBodc  ipaafkMi— 
tbo  A0324  aloo  hao  a  23MHi  gaia  boodwidtb  prodoct  (G  > 

100).  To  oaako  it  mitabla  for  higb  a— d  dau  acq—  arouaw 
iLa  AD524  hao  aa  ootpoi  alow  rau  of  IV’iu  and  aonka  ia  13m 
op  to  a  gun  of  100. 

Aa  a  oBwp—  taapUfitr  ibt  A0324  doaa  aot  rogoan  aar  ontraol 
niBiiTiann  br  (bod  g—  of  I.  10.  100  aad  lAOO.  For  otbtr 
gan  tanaigi  htrwow  I  aad  1000  only  a  nagb  iwa—r  io  rtgoirod. 
Tho  A0324  a— I  a  fbOy  paotociod  for  boib  po—  on  aad 
powor  off  faoA  rowdiiiont 

Tho  A0324  1C  maaram taiadoa  aapidWr  la  mdaUa  in  foor 
difliatnai  aorajoni  of  accarocr  aad  opmiiag  twapantora  — gt. 
Tho  acnwflwiral  “J"  gnda.  tho  low  diift  “K"  gnida  and  loaatr 
dnfi.  higbar  Uaaanty  '*L*'  gnda  art  apadAad  frooi  0  to  «70^:. 
Tba  “S"  gnda  goanaaata  parfor—  to  apaciflconoo  ooar  dia 
(all  MlL-iaaiprniiita  naga:  -  S3*C  to  «  I23TI  aak  a  taaihMt 
—ad  10  M1L  STD4I],  Ooti  B. 


PBOOUCT  mCHUCHTS 

1.  Tho  .AOS24  baa  low  guaraaitod  ofTaat  voluga.  offiat  rettagt 
dnft  aad  tow  imat  for  pctoaioa  bigb  gua  appliuoani. 

2.  Tbt  AOS24  ia  fuacnoauU*  coaaplttt  mib  paa  prognaunablt 
g— of  1.  10,  100  and  lOOO. 

).  laput  aad  output  offttt  nuiling  icrmiaala  an  providad  for 
vary  high  pmiawn  applicaiioaa  aad  to  miouniaa  offiat  voiiaga 
chaagca  in  gain  ranging  appbcaii— . 

4.  Tba  A0324  ia  fiiUy  utput  proitciM  for  both  powar  on  and 
powar  off  fault  cendiMin. 

3.  Tbt  .AOS24  offara  lupanor  dtnanuc  patfonaaaco  wtth  a  gain 
baadvtdtlt  produa  of  23MHa.  full  path  rapaoio  of  75liHz 
and  a  aatUing  tuna  of  13m  to  0.01%  of  a  lOV  itap  tC 

100). 
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GQWOmS  PARTS  LIST 


APPODIX  A-4 


PAKB  LIST  for  flS8605 


ITEM  REFERENCE 


NUMBER 

DESIGNATORS 

DESCRIPTION 

1 

01,2,3,4 

IC  HS508A 

2 

05 

IC  LM555 

3 

06 

IC  AD524 

4 

07 

IC  HS2425 

5 

U8 

1C  74LSOO 

6 

09 

IC  74LS04 

7 

U10 

IC  HS574 

8 

Oil 

IC  74LS164 

9 

012,13,14 

1C  74LS74 

10 

015 

IC  74S38 

11 

016 

IC  74LS158 

12 

017 

IC  74LS139 

13 

018 

IC  74LS174 

14 

019,23,27 

IC  74LS244 

15 

020 

IC  74LS85 

16 

021 

PAL  12L6 

17 

022 

PAL  16L8 

18 

024 

IC  74LS374 

19 

025 

IC  25LS2521 

20 

026 

PAL  14L4 

21 

028,29 

IC  74LS645-1 

22 

030 

ANALOG  DEVICES  949 

23 

R1 

12K  OHM  RESISTOR 

24 

R2,4 

10K  RESISTOR 

25 

R8,11,12 

100  OHM  RESISTOR 

26 

R9 

100K  (»M  RESISTOR 

27 

R13 

4.7K  OHM  RESISTOR 

28 

R7,10 

100K  OHM  POTENTIOMETER 

29 

R5,6 

10K  (HIM  POTENTIOMETER 

30 

R11,12 

100  OHM  POTENTIOMETER 

31 

Cl, 2, 26, 27 

15fflf  16V  TANTALUM  CAPACITOR 

32 

C3-5, 7-1 1,15-25 

.Inf  CERAMIC  DISC  CAPACITOR 

33 

C6,12 

1000  PF  CAPACITOR 

34 

Cl  3, 14 

IMF  CAPACITOR 

35 

PI 

96  PIN  MALE  DIN  CONNECTOR 

36 

J1 

26  PIN  MALE  CONNECTOR 

37 

021,22,26  SOCKET 

20  PIN  .3"  DIP  SOCKET 

38 

03,4  SOCKET 

16  PIN  SOCKET 

39 

010  SOCKET 

28  PIN  SOCKET 

40 

K1,8 

3X2  HEADER 

41 

K2 

4X2  PIN  HEADER 

42 

K4,6 

3X1  HEADER 

43 

K9 

8X2  HEADER 

44 

K10 

2X7  HEADER 

45 

K5 

1X1  HEADER 

46 

K7 

2X1  HEADER 

47 

K3 

5  PIN  HEADER 

MizAB  nc 


APPBDIZ  A-S 


APPBIDIX  D 
PAL  Boomon 


A  £. 


nzAi  nc 


12L6 

86052 1BCC 

REGISTER  SELECT  LOGIC 
MIZAR  INC.,  ST.  PAUL,  MN. 

HACK  DTACK  BAS  AREAOIN  RESET  BA3  BA2  DS1  BA1  GMD 
RH  AMATCH  COIN  INTLEN  INTEN  INTDIS  AREAO  CRSEL  BDSO  VCC 

COMV  s  /AMATCH«/BAS»RESET«BDS0»/DS1*/BA3»/BA2»/BA1 •DTACK* /RW«/IIACK 
CHSEL  a  /AMATCH*/BAS»RESET«BDS0«/DS1»/BA3*/BA2«BA1«DTACK«/RW«/IIACK 
AHEAD  a  /AMATCH«/BAS*RESET«/BA3*/BA2*BA1»RW*/IIACK 
•»-/AREADIN*BDSO«  /DS 1 

INTLEMa  /AMATCH* /BAS«RESET«BDS0*/DS1»/BA3»BA2*/BA1  •DTACK* /RW»/IUCK 
INTEN  a  /AMATCH*/BAS*RESET*BDS0*/DS1*/BA3*BA2*BA1*DTACK*/RM*/IIACK 
INTDISa  /AMATCH* /BAS*RESET*BDS0*/DS1*BA3*/BA2*/BA1*DTACK*/RH* /HACK 
•^/RESET 

DESCRIPTION:  (SNERATES  LATCH  ENABLES  FOR  CONVERT  START,  CHANNEL  SELECT, 
INTERRUPT  ID,  AND  INTERRUPT  BNABLE/DISABLE. 

LOCATED  AT  U20. 

BOARD  REVISION  C  CHAN(XS:  REVISE  LAYOUT,  MOVE  BOARD  TO  CAD  SYSTEM 

BOARD  REVISION:  C  DATE:  7/10/85 

PAL  REVISION:  A  DATE:  7/10/85 


t» 

E3s 

1 

HACK 

INVERTED  INTERRUPT  ACK. 

FROM  VMS  BUS  - 

lACK  SIGNAL 

2 

DTACK 

DATA  ACKNOWLEDGE 

FRGN  U13  -  PIN 

9 

3 

BAS 

BOARD  ADDRESS  STROBE 

FROM  VME  BUS  - 

AS  SIGNAL 

4 

AREADIN 

ADDRESS  READ  IN 

FROM  PAL  U20  - 

PIN  17 

5 

RESET 

RESET 

FROM  VMS  BUS  > 

RESET  SIGNAL 

6 

BA3 

BOARD  ADDRESS  3 

FROM  VME  BUS  - 

ADDRESS  SIGNAL 

7 

BA2 

BOARD  ADDRESS  2 

FROM  VME  BOS  - 

ADDRESS  SIGNAL 

8 

DS1 

DATA  STROBE  1 

FROM  VMS  BUS  - 

DS1  SIGNAL 

9 

BA1 

BOARD  ADDRESS  1 

FROM  VMS  BUS  - 

ADDRESS  SIGNAL 

10 

GND 

GROUND 

11 

RH 

READ/WRITE 

FROM  VMS  BUS  VU  PAL  026-17 

12 

AMATCH 

ADDRESS  MATCH 

FROM  PAL  U26  - 

PIN  16 

19 

BDSO 

BOARD  DATA  STROBE  0 

FROM  VMS  BUS  - 

DSO  SKRIAL 

20 

VCC 

VOLTAGE  INPUT 

13 

CONV 

CONVERSION 

TO  08  -  PIN  13  INDICATES 

START  OF  A/D  CONVERSION 

14 

INTLEN 

INTERRUPT  UTCH  ENABLE 

TO  U24  -  PIN  11  ENABLES 
INTERRUPT  VECTOR  (MTO  BUS 

15 

INTEN 

INTERRUPT  ENABLE 

TO  012  -  PIN  1 

16 

INTDIS 

INTERRUPT  DISABLE 

TO  U12  -  PIN  4  DISABLES  INTRPT 

17 

AHEAD 

ADDRESS  READ 

TO  PAL  021-PIN4  &  019/U23-1419 
ENABLES  DATA  BUFFERS 

18 

CHSEL 

CHANNEL  SELECT 

TO  08  -  PIN  12  A  018  -  PIN  9 
CHOOSES  CONVERSION  CHANNEL 

KEZAi  nc 


PAL14L4 

a60526BCC 

ADDRESS  MODIFIER  AND  RH  DECODER 
MIZAR  INC.,  ST.  PAUL,  MN. 

HACK  HAM  NC  NC  AM4  AM3  AM2  AMO  AMI  GND 
LHORD  WRITE  AMS  NC  NC  AMATCH  RW  NC  NC  VCC 

RM  s  /WRITE»LM0RD*/IIACK«AM5»/AM4*AM3»/AM1*AM0*/HAM 
AMATCH  a  LH0RD»/IIACK«AM5»/AM4»AM3*/AM1»AM0»/HAM 

DESCRIPTION:  ADDRESS  MODIFIER  DECODER  AND  R/W  DECODER. 
LOCATED  026. 

BOARD  REVISKNi  Cx  REVISE  UYOUT,  MOVE  BOARD  TO  CAD  SYSTEM 

BOARD  REVISION:  C  DATE:  7/10/85 

PAL  REVISION:  A  DATE:  7/10/85 


iiFmst 


1 

HACK 

INVERTED  INT.  ACKNOWLED. 

FROM  VME 

BOS  VIA  09  -  PIN  8 

2 

HAM 

HIGH  ADDRESS  MATCH 

PROM  025 

-  PIN  19 

INDICATES  VALID  A8-A15  ADDRESS 

3 

NC 

NOT  CONNECTED 

4 

NC 

NOT  CONNECTED 

5 

AM4 

ADDRESS  MODIFIER  4 

FROM  VME 

BOS 

6 

AM3 

ADDRESS  MODIFIER  3 

FROM  VME 

BOS 

7 

AM2 

ADDRESS  MODIFIER  2 

FROM  VME 

BOS 

8 

AMO 

ADDRESS  MODIFIER  0 

FROM  VME 

BOS 

9 

AMI 

ADDRESS  MODIFIER  1 

FROM  VME 

BOS 

10 

GND 

GROOND 

11 

LWORD 

LONGWORD 

FROM  VME 

BOS-INDICATES  32  BIT  ZFERS 

12 

WRITE 

WRITE 

FROM  VME 

BOS  >  READ/WRITE  LINE 

13 

AMS 

ADDRESS  MODIFIER  5 

FROM  VME 

BOS 

14 

NC 

NOT  CONNECTED 

15 

NC 

NOT  CONNECTED 

18 

NC 

NOT  CONNECTED 

19 

NC 

NOT  CONNECTED 

20 

VCC 

VOLTAGE  INPOT 

16 

AMATCH 

ADDRESS  MATCH 

TO  PAL  021  -  PIN  12  INDICATES 
VALID  ADDRESSING  FOR  THIS  BOARD 

17 

RW 

READ/WRITE 

TO  PALS  021  A  022  PIN  11 

DELAYS  READ/WRITE  LINE  FROM  BOS 


MZZAI  me 


SMI /•mitt 


Appendix  J 


Battery  Package  Data 


List  of  Batteries 


SUPPLIER  : 

Allied  Electronics 

MANUFACTURER : 


Panasonic 


EABIHQ. 

NOMINAL  10  HR.  (Ah) 

CAPACITY  20  HB.  fAW 

y 

LCR12V24P 

22 

24 

12 

LCL12V38P 

34 

38 

12 

LCR12V3PF 

2.8 

3.0 

12 

LCR12V6.5P 

6 

6.5 

12 

Wire  Color  List 

WiR£.CQL0R 

PIN  NUMBER 

battery 

blue/blue 

1 

+12V  circuit 

black 

2 

-24V  ground 

red/red 

3 

+12V  FIP 

black 

4 

ground  AOI 

orange/orange 

5 

-12V  circuit 

white/purple/black 

6 

+24V  gyro 

blue 

7 

+12V  AOI 

black 

8 

ground  circuit 

N/C 

9 

black 

10 

ground  circuit 

black 

11 

ground  circuit 

blue/blue 

12 

+12V  circuit 

N/C 

13 

black 

14 

ground  FIP 

orange 

15 

-12V  circuit 

black/black 

16 

ground  circuit 

The  Following  list  is  accurate  as  of  10/9/89, 


Disolav  Board: 

Connectors: 

#  Part _ 

Used  For 

1 

Molex-3 

CONS  (Pitch  &  Roll) 

2 

Molex-4 

CON  3,  CON  4  (Magnometer  Connectors) 

1 

Molex-6 

POW  (Power  Connector) 

2 

Berg-2 

TPl,  TP2  (Test  points  for  Display  Circuits) 

2 

Berg-3 

CONI,  CON2  (Display  Pots) 

i 

Berg- 50 

CONIO  (Bus) 

2 

Berg-20 

Alt.,  AS  (Display  Connectors) 

4 

Berg-8 

CON6,  CON7,  CONS,  CON9  (Display  Jumpers) 

Resistor  Values: 

R1  =s  100  K 

R2  =  36  K 

R3  =  100  K 

R4  =  100  K 

R5  *  100  K 

R6  =  12.5  K 

R7  =  100  K 

R8  =  100  K 

R9  =  2K 

RIO  =  2  K 

Rll  =  2  K 

R12  *  10  K 

R13  =  10  K 

R14  =  10  K 

R15  =  10  K 

R16s  2K 

R17  =  2  K 

R21  =  10  K 

R18  =  2  K 

R22=  10  K 

R19  =  10  K 

R20  =  10  K 

Totals: 

# 

12 

6 

1 

1 

2 

Resistor  Value 

10  K 

100  K 

36  K 

12.5  K 

2K 

Capacitor  Values: 

Cl  =0.44pF 

C2  =  0.44  pF 

C3  =  0.13  pF 

C4..  =0.13pF 

Totals: 

# 

2 

2 

Capacitor  Value 
0.44  pF 

0.1 3pF 

8 

0.1  pF  (Bypass. 

Not  listed  above) 

ICS: 


ICl  =  MC34082  IC2  =  MC34082  IC3  =  MC34082 


IC4  =  MC34082  ICS  =  REF-01  IC6  =  REF-01 

IC7  =  REF-01  ICS  =  REF-01 

Totals: 

#  Part 

4  MC34082 

4  Ref-01 

IC  Sockets: 

#  Part .  Used  For... 

8  DIP  8  MC34084  &  Ref-01 


FTP  Big  Board: 

Connectors  and  Sockets: 

#  Part  Used  For _ 

2  MOLEX  3  RP,  PWR  (Roll/ Pitch,  Power  Connectors) 

1  Berg  6  3-Axls  (3  Axis) 

1  Berg  8  ALT/ AS  (Altitude /Airspeed) 

1  Berg  26  CON26 

1  Berg  50  CON50 


Resistor  Values: 

R1  =  10  K 

R5  =  8.2K 

R2  = 
R6  = 

10  K 
17.5K 

R3  = 
R7  = 

^  28.5K 
:  19.2K 

R4  = 
R8  = 

12.5K 
:  77.8K 

R9  = 

:  lOK 

RIO 

= 

lOK 

Rll 

= 

lOK 

R12 

= 

lOK 

R13 

= 

10  K 

R14 

10  K 

R15 

= 

28.5K 

R16 

= 

12.5K 

R17 

= 

8.2K 

R18 

= 

17.5K 

R19 

= 

19.2K 

R20 

77.8K 

R21 

= 

lOK 

R22 

= 

lOK 

R23 

= 

lOK 

R24 

lOK 

R25 

= 

lOOK 

R26 

= 

lOK 

R27 

= 

330K 

R28 

= 

28.5K 

R29 

= 

12.5K 

R30 

= 

8.2K 

R31 

= 

17.5K 

R32 

= 

19.2K 

R33 

= 

77.8K 

R34 

lOK 

R35 

= 

lOK 

R36 

= 

lOK 

R37 

lOK 

R38 

= 

lOOK 

R39 

S 

330K 

R40 

28.5K 

R41 

12.5K 

R42 

= 

8.2K 

R43 

= 

17.5K 

R44 

= 

19.2K 

R45 

= 

77.8K 

R46 

= 

lOK 

R47 

= 

lOK 

R48 

lOK 

R49 

= 

lOK 

R50 

= 

lOOK 

R51 

= 

lOK 

R52 

330K 

R53 

= 

28.5K 

R54 

= 

12.5K 

R55 

= 

8.2K 

R56 

= 

17.5K 

R57 

= 

19.2K 

R58 

= 

77.8K 

R59 

lOK 

R60 

= 

lOK 

R61 

= 

lOK 

R62 

= 

lOK 

R63 

= 

1  M 

R64 

= 

1  M 

R65 

1  M 

R66 

= 

1  M 

R67 

= 

28.5K 

R68 

= 

12.5K 

R69 

8.2K 

R70 

= 

77.8K 

R71 

= 

19.2K 

R72 

17.5K 

R73 

= 

IK 

R74 

S 

90K 

R75 

= 

IK 

R76 

= 

90K 

R77 

= 

1  M 

R78 

1  M 

R79 

= 

1  M 

R80 

= 

1  M 

R81 

= 

28.5K 

R82 

= 

12.5K 

R83 

= 

8.2K 

R84 

= 

17.5K 

R85 

= 

19.2K 

R86 

= 

77.8K 

R87 

= 

IK 

R88 

200K 

R89  =  IK 


R90  =  200K 


R91  =  lOK 


Totals: 

# 

3 

27 

7 

7 

7 

7 

7 

7 
3 
3 

8 

Capacitor  Values: 

Cl  =  0.1  |iF 
C5  =  400  nF 
C9  =  0.1  ^iF 
C13  =  0.1  ^iF 
C17  =  400  nF 
C21  =  8000  pF 
C25  =  0.1  nF 
C29  =  0.1  ^iF 
C33  =  400  nF 
C37  =  0.1  nF 
C41  =  0.1  jiF 
C45  =  400  nF 
C49  =  8000  pF 
C53  =  0.1  ^lF 
C57  =  0.1  pF 
C61  =  400  nF 
C65  =  0.1  ^iF 
C69  =  0.1  ^iF 
C73  =  400  nF 
C77  =  80  nF 
C81  =  0.1  ^F 
C85  =  0.1  nF 
C89  s  480  pF 
C93  =  0.1  ^iF 
C97  =  0.1  \iF 

Total?: 

# 

56 
21 
7 


Resistor  Value 
1  K 
10  K 

28.5  K 

12.5  K 

8.2  K 

17.5  K 

19.2  K 
77.8  K 
lOO'K 
330  K 
1  M 


C2  =  0.1  ^iF 
C6  =  480  pF 
CIO  =  0.1  ^iF 
C14  =  0.1  pF 
C18  =  400  nF 
C22  =  80  nF 
C26  =  0.1  nF 
C30  =  0.1  nF 
C34  =  480  pF 
C38  s  0.1  ^F 
C42  =  0.1  \sF 
C46  =  400  nF 
C50  =  80  nF 
C54  =  0.1  ^iF 
C58  =  0.1  vlF 
C62  =  480  pF 
C66  =  0.1  ^iF 
C70  =  0.1  hF 
C74  =  400  nF 
C78  =  0.1  iiF 
C82  =  0.1  nF 
C86  =  400  nF 
C90  =  8000  pF 
C94  =  0.1  nF 
C98  =  0.1  nF 


Capacitor  Value 
0.1  ^iF 
400  nF 
480  pF 


C3  = 

=  400  nF 

C7  = 

:  8000  pF 

Cll 

=  0.1  pF 

C15 

=  0.1  ^iF 

C19 

=  400  nF 

C23 

=  0.1  ^lF 

C27 

=  0.1  ^lF 

C31 

=  400  nF 

C35 

=  8000  pF 

C39 

=  0.1  ^iF 

C43 

=  0.1  ^F 

C47 

=  400  nF 

C51 

=  0.1  nF 

C55 

=  0.1  ^F 

C59 

=  400  nF 

C63 

=  8000  pF 

C67 

=  0.1  ^iF 

C71 

=  0.1  ^iF 

C75 

=  480  pF 

C79 

=  0.1  ^iF 

C83 

=  0.1  ^F 

C87 

=  400  nF 

C91 

=  80  nF 

C95 

=  0.1  ^iF 

C4  = 

=  400  nF 

C8  = 

:  80  nF 

C12 

=  0.1  nF 

C16 

=  0.1  pF 

C20 

=  480  pF 

C24 

=  0.1  pF 

C28 

=  0.1  ^iF 

C32 

=  400  nF 

C36 

=  80  nF 

C40 

=  0.1  ^iF 

C44 

=  0.1  nF 

C48 

=  480  pF 

C52 

=  0.1  pF 

C56 

=  0.1  jiF 

C60 

=  400  nF 

C64 

=  80  nF 

C68 

=  0.1  ^iF 

C72 

=  400  nF 

C76 

=  8000  pF 

C80 

=  0.1  pF 

C84 

=  0.1  ^iF 

C88 

=  400  nF 

C92 

=  0.1  ^iF 

C96 

=  0.1  ^iF 

7 

7 

POTS: 

Potl  =  lOK 
Pots  =  50  K 
Pot9  =  50  K 
Pot  13  =50  K 

Totals: 

# 

2 

14 


8000  pF 
80  nF 


Pot2  =  50  K 
Pot6  =  50  K 
Pot  10  =  50  K 
Potl4  =  50  K 


Part 
10  K 
50  K 


Pots  =  50  K 
Pot7  =  50  K 
Potll  =  50  K 
Potl5  =  50  K 


Pot4  =  lOK 
Pot8  =  50  K 
Potl2  =  50  K 
Potie  =  50  K 


ICS: 

ICl  =  OP-77 
IC4  =  OP-77 
IC7  =  OP-77 
ICIO  =  MC34084 
IC13  =  OP-77 
IC16  =  OP-77 
IC19  =  OP-77 
IC22  =  MC34084 
IC25  =  OP-77 
IC28  =  OP-77 


IC2  =  MC34084 
ICS  =  OP-77 
IC8  =  OP-77 
ICll  =  OP-77 
IC14  =  MC34084 
IC17  =  OP-77 
IC20  =  OP-77 
IC23  =  OP-77 
IC26  =  MC34084 


ICS  =  OP-77 
IC6  =  MC34084 
IC9  =  OP-77 
IC12  =  OP-77 
ICl  5=  OP-77 
IC18  =  MC34084 
IC21  =  OP-77 
IC24  =  OP-77 
IC27  =  OP-77 


Totals: 

#  Pari 

2 1  OP-77 

7  MC34084 


Ig.§9Ckglt§; 

#  Socket 
2 1  DIP  8 

7  DIP  14 


Used  For 

OP-77 

MC34084 


Notes: 


Power  Dlatributlon  Board: 

#  Part  Used  For _ 

T  MOLEX  3  PWR  (For  FIP  Big  Board) 

2  MOLEX  6  IN,  POW  (Battery  Pack,  Display  Board) 


REF  01 
MOLEX  2 


Transducer  +10V  Supply 
+  10V  Connector  and  +24V  Gyro  Power 


Battery  Pack  Board; 

Component _ 

VIC  OR  5V  DC  to  DC  converter 
MOLEX  6  (FIP  Power) 

MOLEX  4  (AOI  +12V  &  -12VPower) 
MOLEX  2  (AOI  +5V  Power) 

UNknown  Battery  Pack  Connector 
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This  material  contains  information  of  proprietary  interest  to 
VMEspecia lists.  It  has  been  supplied  in  confidence  and  the  recipient,  by 
accepting  this  material,  agrees  that  the  subject  matter  will  not  be  copied 
or  reproduced,  in  whole  or  in  part,  nor  its  contents  revealed  in  any  manner 
or  to  any  person  except  to  meet  the  purpose  for  which  it  was  delivered. 


VMEspecia lists  has  made  every  effort  to  ensure  that  this  manual  is 
accurate  and  complete.  Still,  the  company  reserves  the  right  to  make 
improvements  or  changes  in  the  product  described  in  this  document  at  any 
time  and  without  notice.  Furthermore,  VMEspecialists  assumes  no  liability 
arising  out  of  the  application  or  use  of  the  device  described  herein. 


The  electronic  equipment  described  herein  generates,  uses,  and  can 
radiate  radio  frequency  energy.  Operation  of  this  equipment  in  a 
residential  area  is  likely  to  cause  radio  interference,  in  which  case  the 
user,  at  his  own  expense,  will  be  required  to  take  whatever  measures  may  be 
required  to  correct  the  interference. 


This  product  has  been  designed  to  operate  in  a  VMEbus  electrical 
environment.  Insertion  into  any  card  slot  which  is  not  VMEbus  compatible 
is  likely  to  cause  serious  damage.  Please  exercise  particular  care  with 
the  3U  sized  version  of  this  product,  which  can  be  easily  damaged  if 
inserted  into  an  I/O  slot,  rather  than  into  a  standard  VMEbus  PI  slot. 


VME  SPECIALISTS,  INC. 

558  Brewster  Avenue  #1 
Redwood  City,  California  94063  USA 


C(^0lS' 


415-364-3328 

-7  -  ^ 
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1 .  General  Product  Description 

The  VMEspecial ists  SBC2  (figure  1)  is  a  general  purpose  data 
processing  module  fully  compatible  with  the  VMEbus  and  intended  to  fill 
application  areas  such  as  dedicated  machine  control  and  multiprocessor 
environments  which  require  high  functionality  density  at  low  cost.  The 
single  board  computer  has  the  following  features: 

*  68000/68010  MPU,  10-Mhz  clock  rate 

*  Available  in  3U  (single  height)  and  6U  (double  height)  form  factors 

*  512Kbytes  dual  port  zero-wait-state  RAM 

*  Up  to  128Kbytes  local  zero-wait-state  EPROM 

*  Two  serial  ports  with  independently  programmable  baud  rates 

*  16-bit  counter/timer 

*  Complete  on-board  VMEbus  system  controller,  may  be  disabled 

*  7  level  interrupt  handler;  Vectored  and  autovectored  modes 

*  Compliance  with  VMEbus  specification  revision  "C" 

*  Front  panel  RUN  and  EXTERNAL  lamps 

*  Front  panel  RESET  and  ABORT  switches 

The  processor  module  is  constructed  on  a  seven  layer  printed  circuit 
board.  The  module  employs  the  zig-zag  in-line  packaging  style  of  256Kxl 
RAM  devices,  a  pin  grid  array  packaged  68000/68010,  and  extensive  surface 
mount  packaging. 

Each  module  undergoes  extensive  functional  testing  to  assure  high 
product  reliability.  A  one-year  limited-warranty  applies. 

This  series  of  VMEbus  processing  modules  is  exceptionally  well  suited 
to  applications  which  require  cost  effective  data  processing  for  the 
VMEbus,  particularly  where  space  and  packaging  constraints  exist.  The  dual 
ported  memory,  accessable  by  the  local  processor  and  by  any  other  VMEbus 
master,  minimizes  board  count  and  maximizes  memory  access  rate  for  systems 
employing  I/O  with  direct  memory  access  capability. 


2.  Model  Numbers 

SBC2  Single  board  computer,  equipped  with  10  Mhz  68000, 

512Kbytes  dual  port  DR/W,  sockets  for  up  to  128Kbytes  EPROM. 
Configured  for  EPROM  starting  at  location  000000, 
local  RAM  starting  at  080000  (processor  address  space), 

RAM  starts  at  080000  (VMEbus  address  space). 

3U  (single  height)  front  panel.  With  user's  manual. 

Add  one  or  more  of  the  following  suffixes  to  specify  other  configurations: 

-010  Provide  10  Mhz  68010  in  place  of  68000 
-AD  Address  EPROM  at  fcOOOO-fdffff . 

DRAM  begins  at  000000  (processor  address  space)  and  at 
000000  (VMEbus  address  space) 

On  power-up,  the  SSP  and  PC  are  fetched  from  EPROM. 

-6U  Provide  6U  (double  height)  front  panel 
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Figure  1.  The  SBC2  VMEbus  Data  Processor 


3.  Inspection.  Warranty,  and  Repa i r 


Upon  receipt,  carefully  inspect  the  VMEbus  module  and  shipping 
container  for  evidence  of  damage  in  shipping.  Notify  the  factory 
immediately  if  shipping  related  damage  is  suspected. 


Limited  Warranty 

VMEspecialists  warrants  this  product  to  be  free  from  defects  in 
workmanship  and  materials  under  normal  use  and  service  and  in  its  original, 
unmodified  condition,  for  a  period  of  one  year  from  the  time  of  purchase. 
If  the  product  is  found  to  be  defective  within  the  terms  of  this  warranty, 
VMEspecialists'  sole  responsibility  shall  be  to  repair,  or  at 
VMEspecialists'  option  to  replace,  the  defective  product,  provided  the 
product  is  returned  transportation  prepaid  and  insured  to  VMEspecialists. 
All  replaced  products  become  the  sole  property  of  VMEspecialists. 

VMEspecialists'  warranty  of  and  liability  for  defective  products  is 
limited  to  that  set  forth  above.  VMEspecialists  disclaims  and  excludes  all 
other  product  warranties  or  product  liability,  expressed  or  implied, 
including,  but  not  limited  to,  any  implied  warranties  of  merchantability  or 
fitness  for  a  particular  purpose  or  use,  liability  for  negligence  in 
manufacture  or  shipment  of  product,  liability  for  injury  to  persons  or 
property,  or  for  any  incidental  or  consequential  damages. 


Service  Policy 

Before  returning  a  product  for  repair,  verify  as  well  as  possible  that 
the  suspected  unit  is  at  fault.  Then  call  the  factory  for  a  Return 
Material  Authorization  (RMA)  number.  Carefully  package  the  unit,  in  the 
original  shipping  carton  if  this  is  available,  and  ship  prepaid  and  insured 
with  the  RMA  number  written  on  the  outside  of  the  package.  Include  a 
return  address  and  the  telephone  number  of  a  technical  contact.  For  out- 
of -warranty  repairs,  a  purchase  order  for  repair  charges  must  accompany  the 
return.  VMEspecialists  will  not  be  responsible  for  damage  due  to  improper 
packaging  of  returned  items. 


Out  of  Warranty  Repairs 

Out  of  warranty  repairs  will  be  billed  on  a  material  and  labor  basis. 
The  current  minimum  repair  charge  is  $100.  Customer  approval  will  be 
obtained  before  repairing  any  item  if  the  repair  charges  will  exceed  one 
third  of  the  quantity  one  list  price  for  that  unit.  Return  transportation 
and  insurance  will  be  billed  as  part  of  the  repair  and  is  in  addition  to 
the  minimum  charge. 

VMEspecialists  also  makes  available  repair  on  an  immediate  exchange 
basis.  In  most  cases,  a  replacement  can  be  shipped  on  the  day  of  request. 
This  service  is  billed  at  a  flat  rate,  currently  30%  of  the  quantity  one 
price. 
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4.  Specifications 


Processor 

EPROM  (Capacity/Supplied) 
EPROM  types 

RAM  (Capacity/Supplied) 
RAM  type 


10  Mhz  68000  (68010  opt) 

128Kbytes/0 

2764,  27128,  27256,  27512 
512Kbytes/512Kbytes 

Dynamic  dual  ported  for  access  by  both 
the  local  processor  and  by  the  VMEbus. 


RAM  address  configuration  RAM  can  be  partitioned  in  64Kbyte 

increments  (processor  address  space) 
RAM  can  be  configured  to  begin  on  any 
512Kbyte  boundary  (VMEbus  space) 
Address  mappings  are  defined  in 
programmable  logic 

Wait  states  (EPROM/RAM)  0/0 


Serial  ports 

Counter  Timer 

Baud  rates 

VMEbus  requester 

VMEbus  Compatibility 

Master  data  transfer  options 


Two,  RS232-C,  using  68681  device 

One  16-bit,  using  68681  device 

Independently  Programmable:  50  to  38.4  Kbaud 

Any  one  of  R(k),  k=0..3  (STAT),  RWD 

Rev.  C 

A24:D16 


VMEbus  system  controller: 
Arbiter 

SYSRESET*  driver 

SYSCLOCK  driver 
TOUT 

Interrupt  handler 
Physical  configuration 


Single  level  (may  be  disabled) 

Power  up  or  front  panle  button 
(may  be  disabled) 

(may  be  disabled) 

drives  BERR*  after  min  12.6,  max  18.9  usee, 
(may  be  disabled) 

Seven  total  levels  (including  locrfl) 

Local  sources  (Abort  button,  68681  SIO/CT) 
SINGLE  (opt.  avail,  with  double  high  panel) 


Front  panel  switches  ABORT,  RESET 


Front  panel  lamps 


RUN,  EXTERNAL 


Address  space  (Standard) 


000000  -  Olffff 
080000  —  Offfff 
100000  —  dfffff 
feOOOO  —  feffff 
ffOOOO  —  ffffff 


EPROM  (128Kbytes) 
RAM  (512Kbytes) 
VMEbus 

local  68681  SIO/CT 
VMEbus  short  I/O 
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(Alternate) 


000000  -  07ffff 
080000  —  bfffff 
fcOOOO  —  fdffff 
feOOOO  —  feffff 
ffOOOO  —  ffffff 


RAM  (512Kbytes) 
VMEbus 

EPROM  (128  Kbytes) 
local  68681  SIO/CT 
VMEbus  short  I/O 


Power  requirements  +5  VDC,  2.6  Amps  typ.,  3.6  Amps  max. 

-t-12  VOC.  .035  Amps  max. 

-12  VDC,  .035  Amps  max. 


Operating  temperature 
Storage  temperature 
Relative  humidity 


0  to  +55  degrees  C 
-40  to  +80  degrees  C 
0  to  90%  non-condensing 


SIZE: 


SBC2:  129  mm.  high,  20  mm.  wide,  172  mm.  deep 

SBC2-6U;  262  mm.  high,  20  mm.  wide,  172  mm.  deep 

(viewed  from  front  panel) 


WEIGHT: 


0.23  Kg,  0.5  pounds. 


5.  Installation  and  Jumper  Options 

Prior  to  installation,  the  module  options  must  be  configured  by  way  of 
jumpers.  Options  include: 

*  Specification  of  the  EPROM  type 

*  Enable/Disable  control  over  individual  system  controller 
functions 

*  Assignment  of  interrupt  handler  levels 

*  Specification  of  VMEbus  requester  priority  level 

5.1  EPROM  type  options 


Jumper  group  A  is  located  below  EPROM  2C. 
positioned  as  indicated  below: 

There  are 

six  posts 

I  2C 

1  1C 

1 

1 

I 

1 

0  0  0  0  0  0  0 

6  5  4  3  2  1  0 

Jumper  Group  A 


EPROM  TYPE  CONNECT  and  CONNECT 


2764 

2  -  3 

5-6 

27128 

2  -  3 

5-6 

27256 

1  -  2 

5-6 

27512 

1  -  2 

4  --  5 

We  recommend  use  of  200  ns.  access  time  or  faster  EPROMS. 

The  socket  at  location  1C  holds  the  device  driving  D0-D7  (ODD 
ADDRESS).  Device  2C  drives  D8-D15  (EVEN  ADDRESS). 


5.2  System  controller  options 


The  system  controller  functions  may  be  individually  enabled/disabled 
through  jumper  block  JPRC,  having  four  post  pairs.  Jumper  block  C  is 
located  just  below  3B. 


CONNECT  1—2: 

CONNECT  3—4: 

CONNECT  5-6: 


10 

02 

30 

04 

50 

06 

70 

08 

To  enable  this  module  to  drive  SYSRESET*  on 

power-up 

and  when 
pressed. 

the  RESET  button  on  the  front 

panel  is 

To  enable  this  module  to  drive  SYSCLK,  the  VMEbus 
16  Mhz  system  clock.  Be  sure  that  only  one  module 
in  your  system  is  driving  SYSCLK. 

To  enable  the  bus  timeout  watchdog  timer  on  this 
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module.  If  no  VMEbus  slave  responds  to  a  transfer 
request  initiated  by  ANY  VMEbus  master  within  a  time 
interval  of  12.8  to  19.2  microseconds,  the  watchdog 
timer  will  abort  the  data  transfer  cycle  with  BERR*. 


CONNECT  7—8:  To  enable  the  VMEbus  arbiter  of  this  module.  Only 

one  module  in  your  system  can  be  the  system  arbiter. 
If  you  select  this  module  to  perform  the  arbiter 
functions,  then  this  module  MUST  be  in  slot  :. 


5.3  Interrupt  handler  options 

The  microprocessor  unit  recognizes  seven  distinct  interrupt  levels, 
with  multiple  interrupters  permitted  on  any  one  level.  Jumper  block  B 
defines  which  of  the  11  interrupt  sources  will  be  active,  and  the  mapping 
of  interrupt  sources  to  MPU  interrupt  level. 


Find  jumper  block  B  between  3B  and  4B  near  the  board  center, 
default  jumper  locations  are  indicated  by  dashed  lines. 


Factory 


MPU 

level 

7 

2 

0  — -  0 

1 

ABORT  button 

0 

3 

VMEbus  level 

7 

MPU 

level 

6 

5 

0  0 

4 

VMEbus  level 

6 

MPU 

level 

5 

7 

0  — -  0 

6 

VMEbus  level 

5 

MPU 

level 

4 

9 

0  — -  0 

8 

VMEbus  level 

4 

MPU 

level 

3 

11 

0  — —  0 

10 

68681  interrupt 

MPU 

level 

2 

13 

0  0 

12 

VMEbus  level 

2 

MPU 

level 

1 

15 

0  0 

14 

VMEbus  level 

1 

0 

16 

VMEbus  level 

3 

VMEbus  BCLR* 

18 

0  0 

17 

VMEbus  ACFAIL* 

Ei-ch  interrupt  level  has  been  defined  in  the  PAL  located  at 
5B  as  being  either  vectored  or  autovectored. 


position 


Default  Interrupt  Mapping 
MPU  Level  Vectored/Autovectored 


(highest) 

PRIORITY 


(lowest) 


7 

6 

5 

4 

3 

2 

1 


Autovector 

Vector 

Vector 

Vector 

Vector 

Vector 

Vector 
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5.4  VMEbus  requester  options 


Jumper  group  D  defines  the  priority  of  the  VMEbus  requester.  It  is 
located  just  above  and  to  the  right  of  PI. 

15  13  11  9  7  5  3  1 

00000000 

0  0  0  0  0  0  0 

14  12  10  8  6  4  2 


There  are  four  bus  request  levels,  0  through  3.  Level  3  has  highest 
priority.  If  you  enable  the  local  bus  arbitor,  or  if  you  are  using  any 
SINGLE  level  arbitor,  then  you  must  use  bus  request  level  3. 


To  use  bus  request 
(Factory  preset) 

level 

3: 

CONNECT 

1—2,  3-4,  5-6,  7-9, 
8—10,  11-12 

0  0  0 

I 

0  0 

0-0  000 

I  I  I 

0-0  000 

To  use  bus  request 

level 

2: 

CONNECT 

1-2,  3-4,  5-9,  10-6, 
7-8,  12-14 

To  use  bus  request 

level 

1: 

CONNECT 

1-2,  3-9,  4-10.  5-6, 
7-8,  12-13 

To  use  bus  request 

level 

0: 

CONNECT 

1-9,  2-10,  3-4,  5-6, 
7-8,  12-15 

5.5  Installation  in  a  VMEsystem 

This  module  provides  continuity  of  bus  grant  and  interrupt  acknowledge 
daisy  chains.  Be  sure  to  check  the  following  prior  to  installation: 

[1]  Ensure  that  the  backplane  bus  grant  daisy  chain  jumpers  have  been 
removed  for  this  slot. 

[23  Ensure  that  empty  slots  between  slot  1  and  this  slot  have  bus 

grant  and  interrupt  acknowledge  diasy  chain  jumpers  inserted. 

[3]  Be  sure  to  install  this  module  in  slot  1  if  the  board's  bus 

arbitor  has  been  enabled. 


[4]  Is  this  slot  VMEbus  compatible,  with  VME  voltage  levels?  Nominal 
voltages  are:  +5  VDC,  P1-A32,  P1-B32,  P1-C32 

+12  VDC,  P1-C31 

-12  VDC,  P1-A31 

GND,  P1-A11,  P1-A15,  P1-A17,  P1-A19,  P1-B20,  P1-C9 
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Figure  2.  Jumper  Positions 
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I3C 


6.  Address  Modifier  Codes 

During  VMEbus  data  transfer  cycles,  the  module  asserts  the  following 
address  modifier  codes; 

TRANSFER  TYPE  ADDRESS  MODIFIER  CODE  (HEX) 

Standard  supervisory  program  access:  3E 

Standard  supervisory  data  access:  3D 

Standard  non-privileged  program  access:  3A 
Standard  non-privileged  data  access:  39 

For  references  within  the  short  I/O  space  (FFOOOO  through  FFFFFF), 
the  module  asserts; 

Short  supervisory  access;  2D 

Short  non-privileged  access:  29 
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7.  VMEbus  Interface  Signals 


PI  Connector  Assignments; 


ROW  A 

ROW  B 

ROW  C 

PIN 

SIGNAL 

SIGNAL 

SIGNAL 

NUMBER 

MNEMONIC 

MNEMONIC 

MNEMONIC 

1 

DOO 

BBSY* 

008 

2 

D01 

BCLR* 

009 

3 

D02 

ACFAIL* 

010 

4 

003 

BGOIN* 

Oil 

5 

004 

BGOOUT* 

012 

6 

005 

BG1IN* 

013 

7 

006 

BG10UT* 

014 

8 

007 

BG2IN* 

015 

9 

6ND 

BG20UT* 

GNO 

10 

SYSCLK 

BG3IN* 

SYSFAIL* 

11 

GND 

BG30UT* 

BERR* 

12 

0S1* 

BRO* 

SYSRESET* 

13 

OSO* 

BR1* 

LWORO* 

14 

WRITE* 

BR2* 

AM5 

15 

GND 

BR3* 

A23 

16 

OTACK* 

AMO 

A22 

17 

GND 

AMI 

A21 

18 

AS* 

AM2 

A20 

19 

GND 

AM3 

A19 

20 

lACK* 

GND 

A18 

21 

lACKIN* 

SERCLK 

A17 

22 

lACKOUT* 

SEROAT 

A16 

23 

AM4 

GND 

A15 

24 

A07 

IR07* 

A14 

25 

A06 

IRQ6* 

A13 

26 

AOS 

IR05* 

A12 

27 

A04 

IRQ4* 

All 

28 

AOS 

IRQ3* 

A10 

29 

A02 

IRQ2* 

A09 

30 

A01 

IRQ1* 

A08 

31 

-12V 

+5  STOBY 

+12V 

32 

+5V 

+5V 

+5V 

Notes; 

lACKIN*  is  connected  to  lACKOUT*  on  board 
The  following  lines  are  not  used: 

SYSFAIL*,  SERCLK,  SERDAT,  +5  STDBY,  IRQ7*..1* 
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8.  Serial  Connectors  JA  and  JB 


Jb  Pinout  (68681  Channel  A) 


Pin  Number 

Name 

Direction 

1 

GND 

3 

RXOA 

IN 

5 

TXDA 

OUT 

7 

CTSA 

IN 

9 

RTSA 

OUT 

13 

GND 

Ja  Pinout 

Pin  Number 

Name 

Direction 

1 

GNO 

3 

RXOB 

IN 

5 

TXDB 

OUT 

7 

CTSB 

IN 

9 

RTSB 

OUT 

13 

GND 

16 
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Parts  List 


PART  NUMBER  DESCRIPTION 


LOCATION 


1001002125  Data  delay  line,  125ns 
1001002225  Data  Delay  Device.DDU-222>50 
1001100001  LED (green),  SP6-5731  REC  STANLEY 
1001100002  LED(red),SPR-5731  REC  STANLEY 
1001100368  3.68  Mhz  Oscillator,  TTL  Crystal 
1001101116  16Mhz  Oscillator,  TTL  Crystal 
1001101120  20  Mhz  Oscillator,  TTL  Crystal 
1001205812  Switch  cap,  (5081-3,  red) 

1001205813  Switch  cap  (5081-2,  black) 

1001210110  Computer  switch,  (EP11-D1-A-B-E) 

1002000020  SMS  20  Pin  Inline  strip  socket 

1002001124  Socket,  24  pin  IC  machine  screw 

1002003926  Molex  connector,  39-26-7148 

1002004100  Socket,  20  pin  IC  machine  screw 

1002006810  Socket, 64  pin,  T4B  Ansley  pin  grid  array 

1002012014  Socket,  14  pin  sip 

1003062260  Capacitor,  tantalum.  22ufd 

1003064760  Capacitor,  tantalum.  47ufd 

1003071000  Capacitor,  ceramic,  lOpfd,  .100  rad  lOv 

1003071010  Capacitor,  ceramic,  lOOpfd,  disk 

1003073340  Capacitor,  ceramic,  .lufd,  chip 

1004100103  Resistor,  10  kohm  chip 

1004100202  Resistor,  2  kohm  chip 

1004100221  Resistor,  220  ohm  chip 

1004100471  Resistor,  470  ohm  chip 

1004100472  Resistor,  4.7  kohm  chip 

1004112470  Resistor,  47  ohm  chip 

1004704729  Resistor  network,  Allen  Bradley,  710A472 

1004724704  Resistor  network,  Allen  Bradley,  708B470 

1005014001  Diode,  1N4001 

1006002505  Amp  Connector,  #  532505-1 

1006100025  Header,  dual pin  x  25 

1007000005  PCB  SBC2  0035A 

1007040373  IC  74F373 

1007140244  74F244,  IC  chip 

1007140245  74F245,  IC  chip 

1007140257  74F257.  IC  chip 

1007140367  74F367,  IC  chip 

1007420153  IC,  82S153 

1008000014  74F14,  IC 

1008000074  74F74,  IC 

1008100760  74AS760,  IC 


4C 

5C 

LED1 

LED2 

XTL1 

6B 

9C 

SW2 

SW1 

SW1.SW2 

13C 

2B 

J1.J2 

3B,4B.5B,10C,91C,91G 

IB 

1C,2C 

Cl 

C2 

C5 

C3,C4 

C23-C45 

RIO 

R12 

R14 

R8.R11.R5 

R6,R7 

R1-R4,R9.R92 

RP1-RP3 

RP4,RP5 

D1 

PI 

JPRA-D 

91F 

5A.6A,8A,9A 

1A,2A,91A,91B 

11C,12C,91D,91E,91F 

4A 

91C 

6C 

3C 

3A 
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PART  NUMBER 


DESCRIPTION 


LOCATION 


1008200590  74LS590.  IC  8C 

1008751488  1488,  IC  17D 

1008751489  1489.  IC  18D 

1009001681  Tib  Pal  16L8-15CN  3B,4B,5B,10C.916 

1009002010  Pal  20L10A  2B 

1009704256  M4256L-12  Zip  Ram( 120ns)  1D-16D 

1009908000  MC  68000R10  IB 

1009908681  MC  68681  P  13C 


1011003002  3u  Front  Panel,  punched  for  SBC2 
1011008000  Mounting  brackets  for  front  panels 
1011008001  Screw, nut  pair,  2.5x10nin 
1012000002  Shipping  boxes,  M-402 
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^TNO  02M-00(:  ; 

MK  INTRn; 

DATE  M/OS/Bt  ; 

REV  02  ; 

DCSIBNEE  iiHMNN  ; 

COKAANf  VRE^ciilittt  ; 

ASSERD.Y  CRUl  : 
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ti 
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ti 
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i: 

s 
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8 

It 
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1/ 

PIN 

13 

s 
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1 

It 
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14 
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• 

1 

It 

tt 
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X 
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/I 
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VNEbus  HRITEi 

tl 

.11 

Outputs  11/ 

fin 

II  • 

■OS 

,1 

Ountr  oF  Mi  but  itSfrtt  OS 

tl 

fin 

i:  » 

'N03C 

• 

f 

1* 

NMory  but  OSO/ 

tl 

'In 

14  * 

'NS31 

4 

« 

/• 

Ntwry  but  OSl/ 

tl 

FIN 

15  * 

"VNEOAT 

} 

It 

Entblt  VHebut  trintctivtrs 

t: 

fin 

16  * 

'EITOAT 

• 

B 

It 

Enibit  bSOOO'Mi  but  icvrt 

tl 

FIN 

18  * 

"VNEDIR 

1 

It 

Dir  o4  VHEbut  bits  icrrt 

tl 

FIN 

IP  ^ 

".031 

f 

It 

VNEbut  OSli  (BUFFERED/ 

tl 

'*>  Logic  Equitioris  it/ 

.03:  «  VHECSl  ; 

03  >  BSO  •  OSl  ; 


NC30  :  VNE  t  VOSO 

I  "VNE  I  030  I 

n;3I  >  VNE  B  VNEOSl 

I  "VNE  B  031  ; 

VNEIAT  :  RAS  B  'REFRESH  B  VNE 

I  OF  '.’ 

t  'VNEOAT  B  VOSO 
I  VNEOAT  B  VNE031  ; 

VNEOIR  <  DRV  B  'VNEkR 

I  'DRV  B  VNENR  ; 


c  A  •  e  o  u 


zfk\ 


I  8RV 

I  EITOAT  t  DSO 
•  EITDAT  t  DSl  ; 


PARTM  0204-007*  ; 

NAME  AHDECODE  ; 

DATE  08/30/BA  ; 

REV  01  ; 

DESI6NER  lEHIIANN  ; 

CONPAKr  VHEspecialists  ; 
ASSEHBiy  SSr2  ; 
location  91C  5 


'1 

t/ 

/'» 

»/ 

/* 

•  / 

1*  AlloMtle  Target  Device  Types: 

82sis;a 

#/ 

/«§ 

Inputs 

1 

• 

PIN 

1 

s 

AI3  i 

/» 

VHEbus  A23 

1/ 

PIN 

S 

Ai:  5 

II 

VNEbus  A22 

II 

PIN 

s 

a:i  i 

II 

VNEbut  A21 

1/ 

PIN 

* 

S 

A20  ; 

II 

VNEbus  A20 

II 

PIN 

5 

= 

A19  ; 

II 

VNEbus  A19 

II 

PIN 

6 

= 

an;  } 

II 

VHEbus  an; 

II 

PIN 

7 

s 

AN<  ; 

II 

VHEbus  AH* 

II 

PIN 

8 

s 

an;  i 

II 

VHEbus  AR3 

II 

PIN 

9 

S 

AN2  1 

II 

VHEbus  AN2 

II 

PIN 

11 

5 

ANl  } 

II 

VNEbus  ANl 

II 

PIN 

12 

s 

ANO  ; 

II 

VHEbus  ANO 

1/ 

PIN 

13 

s 

'DSl  ; 

II 

VNEbus  DSl I 

II 

PIN 

1* 

s 

!DSO  i 

II 

VHEbus  DSOs 

II 

PIN 

IS 

S 

'BEAR  ; 

II 

VHEbus  BERR I 

II 

PIN 

10 

s 

■lACR  ! 

II 

VNEbus  lACM 

II 

PIN 

17 

= 

■DTACR  5 

II 

VHEbus  DTAC>  » 

II 

PIN 

18 

s 

AS  ; 

II 

VHEbus  ASt 

1, 

/»♦ 

Outputs 

It/ 

PIN 

19 

z 

'VRfi 

II 

VHEbus  requests  dualport 

rat  1! 

/*»  InttrMdiitc  Logic  **/ 

SEL  *  'A23  (  'A22  A  'A2!  A  <A20  A  A19  4  'BERR  A  'OTACr 

A  ' lACK  A  AS  ; 

/**  Logic  Equitioni  *«/ 

VR;  s  Ml  A  Alt*  A  AR3  A  !AN1  A  AND  A  SEL  A  DSO 

t  ANS  A  Aff4  A  AK3  A  'AHl  A  AAO  A  SEL  A  DSl 

I  an;  a  AN4  a  AR3  A  ARl  A  'ANO  A  SEL  A  DSO 

t  an;  a  an*  a  AH3  A  AHl  A  'ARC  A  SEL  A  DSl 

I  VRfi  A  AS  ; 


PARTNO  0204-0074 

• 

NAME  BSfiQSi2  ; 

DATE  08/30/86 

i 

REV  01  ; 

DESIGNER  LEHflANN  ; 
CONPANi  VHEspecia 

lists  ; 

• 

ASSEHBLY  SBC2 
LOCATION  2B  ; 

• 

f 

/ 

/» 

This  divice  acts  ai  as  S6L  Itvtl  VHEbus  arbitir  and  as  a 

♦/ 

it 

BUS  REQUESTER.  It  tiMS  th»  addrtss  to  AS*  situp  interval. 

tl 

It 

»/ 

AlIoMabli  Target  Device  Types: 

PAL20L10A 

tl 

/ 1** 

/♦• 

Inputs 

11/ 

FIN 

1 

»  !BBSY  5 

/♦ 

VNEbus  BBSYi 

tl 

PIN 

2 

=  !D30  ; 

It 

Local  68000  LOS/ 

tl 

FIN 

n 

J 

s  '031  j 

It 

mi 

tl 

PIN 

4 

=  'ARBLTCH  ; 

It 

Output  of  Request  Arbitr  Ltch 

tl 

PIN 

r 

j 

s  'EXT  ; 

It 

On  board  request  for  VNEbus 

tl 

FIN 

b 

:  'BERN  ; 

It 

VNEbus  BERRt 

tl 

FIN 

7 

»  'VNEDSO  J 

It 

VHEbus  DSO» 

tl 

FIN 

8 

s  IVNED31  i 

1* 

VNEbus  DSl* 

tl 

FIN 

9 

X  VHEAS  ; 

1* 

VNEbus  AS* 

tl 

FIN 

10 

S  'VBEDT  } 

It 

VNEbus  DTACNt 

tl 

PIN 

11 

s  B6IN  ; 

It 

Bus  Grant  IN  for  OUR  level 

tl 

PIN 

13 

:  'BRXIN  : 

It 

Bus  Request  IN  for  our  level 

tl 

• 

PIN 

21 

*  'OLTOUT  5 

It 

Delay  line  output 

tl 

Outputs 

♦«/ 

FIN 

14 

>  'BROUT  ; 

It 

Bus  Request  Output 

tl 

PIN 

15 

=  lARBOUT  J 

It 

Bus  grant  output  free  arbitor 

tl 

PIN 

16 

<  IB60UT  ; 

It 

Bus  grant  out  froe  requester 

tl 

PIN 

17 

>  lEBLAS  ; 

It 

Enable  Address  strobe  drive 

tl 

FIN 

18 

*  'BERRL  ; 

It 

Local  BERR/ 

tl 

PIN 

19 

=  'DTACKL  ; 

It 

Local  DTACF/ 

tl 

PIN 

20 

*  'DLYIN  ; 

It 

Delay  line  input 

tl 

PIN 

22 

s  'DRV  ; 

It 

Address  drive  enable  w  VNEbus*/  1 

PIN 

*  ! EBLTO  ; 

It 

Enable  Bus  Tiae  Out 

tl 

/♦♦ 

Logic  Equations  *tl 

EBLTO 

VNEDSO  b  'VNEOT 

1 

VHEDSl  1  'VHEDT  ; 

DRV 

s 

OLYOUT  b  ARBLTCH  b  *VNEAS  b  B61N  b  'B60UT  b  !VNEDT  b  IBERR  b  EXT 

1 

DRV  b  B6IN 

1 

DRV  b  EXT  ; 

BERRl 

DRV  b  BEFR  ; 

• 

DTftCNi.OE  = 

DRV  b  VHEDT  ; 

DTftCRL  * 

b'l  i 

EBIAS  * 

DRV  b  'DLYOUT  b  DSD 

1 

DRV  b  'DLYOUT  b  OSl 

a 

csi  ac  i  no"  . 

BSOUT 

•  DLYOUT  (  BSIN  1  'ARBLTCH 

•  B80UT  1  BrtN  ; 

BliOJT 

>  EIT  1.  lEBLAS  It  OSO 

1  EIT  i  IEBLA3  A  031  ; 

ARrGJT 

:  BRllN  1,  'BBSY  ; 

DLUN 

:  B61N  1  'DRV  ; 

PARTNO  0204-0073  ; 

NARE  DRRAK  ; 

DATE  08/30/84  ; 

REV  01  ; 

DESI6NER  LEH8ANM  ; 

COnPANV  VNEsptCialtsts  ; 

ASSEMBLY  SBC2  ; 

LOCATION  IOC  ; 

/*  This  ittvicf  control  tht  Ixal  DRAM.  Thorc  arc  512Kbytes  oT  »/ 

/»  Zero  eait  state  teury  (1  bank  o4  liUHilh).  Asynchronous  *1 

I*  arbitration  is  betaeen  the  retrcsh  tiaer  and  the  88000.  t/ 

I*  Arbitration  and  address  decoding  are  overlapped.  Refresh  uses  */ 
i*  the  CAS  before  RAS  cycle  and  autoaatic  REFRESH  addrss  generation  »/ 
/«ia»i»**ataaatfaa»a»»ta»e»ee»»ita»e»aat»si*»i»a»aH»a»*»i»»»eif»ia/ 

I*  Alloeable  Target  Device  Types:  PAL16L8-1S  */ 


/♦♦ 

Inputs 

»§/ 

PIN 

1 

X  'ASL 

/• 

88000 's  AS/  latched  in  arbit 

a/ 

PIN 

2 

X  I HDSO 

/* 

Heaory  bus  DSO/ 

a/ 

PIN 

X  IHDSl 

/a 

Heeory  bus  DSl/ 

a/ 

PIN 

4 

X  IRAN 

/♦ 

RAH  address  presented  88000 

a/ 

PIN 

S 

X  IDEL40 

/a 

RAS/  delayed  40  ns. 

a/ 

PIN 

8 

X  1 DELIOO 

/a 

RAS/  delayed  100  ns. 

a/ 

PIN 

7 

X  I ARBTO 

/a 

ARB  delayed  for  aetastables 

a/ 

PIN 

8 

X  IVHERfi 

/a 

VHE  request  of  raa,  latched 

a/ 

PIN 

9 

X  RFSHTO 

/a 

Refresh  tieeout 

a/ 

PIN 

11 

*  'VHEDEL 

/a  VHE  delayed 

a/ 

/♦» 

Outputs 

»♦/ 

PIN 

12 

*  'VHE 

/a 

Set  HUI  to  VHEbus  access 

a/ 

PIN 

13 

X  'VHEDT 

/a 

DTACKa  VHEbus 

a/ 

PIN 

14 

X  IREFRESH 

/a 

Refresh  cycle 

a/ 

PIN 

IS 

X  'HDTACK 

/a 

Heeory  DTACK/,  88000  access 

a/ 

PIN 

18 

*  'CASl 

/a 

CAS  for  DO.. 7 

a/ 

PIN 

17 

X  'CASO 

/a 

CAS  for  D8..15 

a/ 

PIN 

18 

*  IRAS 

/a 

RAS/ 

a/ 

PIN 

19 

X  'ARB 

/a 

ARBITRATE  CLOCK 

a/ 

/»t 

Logic  Equations  f*/ 

ARB 

S 

IRAS  b  RAH  b 

•HDTACK  b 

•REFRESH  b  IVHEDT 

1 

VHERQ  b  IRAS 

k  IHDTACK  b  IREFRESH  b  IVHEDT 

1 

RFSHTO  b  IRAS  b  IHDTACK  b  IREFRESH  b  1 VHEDT  ; 

REFRESH  <  ARBTO  b  IRAS  4  'OEL40  b  'CASO  b  «CAS1  b  RFSKTO  b  'DELIOO 
I  REFRESH  b  'DELIOO 
4  REFRESH  b  0EL40  ; 

HOTACi  -  RAS  b  IREFRESH  b  NDSl  b  'VKEDEL 

«  RAS  b  'REFRESH  b  HDSO  b  IVHEDEL 

I  NDTACK  b  RAH  b  HDSO 
I  HDTACh  b  RAH  b  HDSl  ; 

VHEn  X  RAS  b  IREFRESH  b  VHEDEL  b  CASl  b  DELIOO 

I  RAS  b  'REFRESH  b  VHEDEL  b  CASO  b  DELIOO 

•  VHEDT  b  HDSO 
I  VHEDT  b  HDSi  ; 


CASl  »  RAF  t  'RFFBFSH  t  Bfl  4rt  4  HDS/i 


I  CASl  t  ASL  k  ‘REFRESH  I  RAH  4  ND3C  4  RDTAC»  4  'VNEDEL 
I  CASl  4  HDSO  4  VHEDEL  4  'REFRESH  ; 

CASO  :  RAS  4  'REFRESH  4  DEL40  4  HDSl 
I  REFRESH  4  lOELlOO  4  .'ARBTO 

I  CASO  4  ASL  4  ! REFRESH  4  RAH  4  RDSl  4  HDTACK  4  'VHEDEl 
t  CASO  4  RDSl  4  VHEDEL  4  'REFRESH  ; 

RAS  s  REFRESH  4  IRFSHTO  4  CASO 
I  REFRESH  4  'RFSHTO  4  CASl 

I  ARBTO  4  IRFSHTO  4  IVHERfi  4  I VHEDEL  4  ASL  4  RAH  4  'DEL40 
4  IDELIOO  4  'CASO  4  'CASl 

I  ARBTO  4  IRFSHTO  4  VHERfi  4  VHEDEL  4  'DEL40  4  IDELIOO  4 
'CASO  4  'CASl 

t  RAS  4  IDELIOO  4  'REFRESH 
t  RAS  4  RAH  4  'REFRESH  4  'VHEDEL 
I  RAS  4  VHERQ  4  I REFRESH  4  VHEDEL  ; 

VHE  :  ARBTO  4  'RFSHTO  4  VHERfi  4  IRAS  4  ICASO  4  'CASl  4  IREFRESH 
I  VHEDEL  4  VHERfi 
«  VHEDEL  4  CASO 
4  VHEDEL  4  CASl  ; 


FAFTNO  0204-0073  ; 

NAME  A0ftSS2: 

DATE  09/01/86  ; 

REV  01  ; 

DESIGNER  LEMIANN  ; 

CONPANf  VHEsptciahsti  ; 
ASSENDlT  sbc:  ; 

LOCATION  3E  ; 


/♦ 

TNis  devict  doti  addrast  decoding 

aa  lolloas: 

»/ 

.  ♦ 

»/ 

/» 

ADDRESS: 

DESTINATION: 

»/ 

/t 

000000  - 

OlHH 

RON 

(128  Kbytes) 

#/ 

/I 

080000  - 

Offfff 

RAH 

(512  Kbtyesi 

1/ 

/» 

100000  - 

dfffff 

VREbuc 

a/ 

/» 

TeOOOO  - 

itWf 

Local  88681 

SIO  and  counter/tiaer 

»/ 

/§ 

TfOOOO  - 

(ffUf 

VREbui  abort  I/O 

a/ 

/»*« 

;* 

Alloaable  Target  Device  Typea: 

RAL16L8H5 

aaa/ 

a/ 

Inputs  »»/ 

FIN  n..8I  • 

[A23..161  i 

/a 

68000  adr  23.. 16 

a/ 

PIN 

9  = 

!DS  ; 

/a 

68000  DS/ 

a/ 

PIN 

11  * 

(START  ; 

/a 

Inital  SSP  and  PC  Fetches 

a/ 

PIN 

13  s 

'AS  5 

/a 

AS/ 

a/ 

PIN 

17  » 

'lACK  ; 

/a 

FC0..2  IS  interrupt  acK 

a/ 

PIN 

13  » 

'EITIACK  ; 

/a 

interrupt  ack  For  VHEbus 

a/ 

/at 

Outputs  aa. 

PIN 

12  s 

'RON  5 

/a 

Local  ROH  access 

a/ 

PIN 

14  s 

'RAf!  5 

/a 

Local  RAH  access 

a/ 

PIN 

15  * 

(SIO  ; 

/a 

68681  access 

a/ 

FIN 

16  « 

'EITERNAl  ; 

/a 

VHEbus  access 

a/ 

PIN 

19  * 

'SHORT  ; 

/a 

VHEbus  I/O  access 

a/ 

/*•  Otcliritions  tnd  Intcracdutt  Varuble  Dafinitions  *«/ 


FIELD  ADR  *  [A23..16]  ; 
/»*  Logic  Equitions  **/ 


SHORT  >  A23  I  A22  I  A2l  b  A20  8  A19  8  A18  8  A17  8  A16  ; 

SIO  >  A23  8  A22  8  A2l  8  A20  8  A19  8  A18  8  A17  8  !Ale  8  AS  8  DS  8  HACK  ; 

RON  *  IA23  8  !A22  8  'A21  8  'A20  8  'A19  8  lAlB  8  !A17  8  AS  8  DS  8  'lACK  $ 

RAN  :  'A23  8  'A22  8  !A21  8  'AZO  8  AI9  8  AS  8  'IAC8  ; 

ElTERNAw  0  'A:3  8  'A22  8  'A21  8  A20  8  AS  8  MACN 
I  'A23  8  'A22  8  A2]  8  AS  8  'lACX 
I  'A23  8  A22  8  AS  8  HACK 
I  A2:  8  <822  8  AS  8  HACK 
«  A:3  8  A2:  8  'A:i  8  AS  8  HACK 
t  ElTIACK  8  AS 

4  A23  8  A:2  8  A2l  8  A20  8  A19  8  AIS  8  Al7  8  A16  8  AS  8  HACK  ; 


PAftTNO  0204-0085  : 

NAME  FCNDECOD  ; 

DATE  02/10/8&  ; 

REV  01  ; 

DESIGNER  LEHMANN  ; 
company  VHEipfCialists  ; 

ASSEMBLY  CPUl  ; 
location  SB  ; 

/*  This  dtvict  dicodii  tht  FC2..0  lints  of  tht  68()00  to  «/ 

/»  chk  for  inttrrupt  ack  cycltc,  inttrnal  or  nttrnal.  It  choosts  «/ 
/*  vfctortd  or  autovtctortd  lACK  cyclt,  and  also  includes  a  BUS  TIMOUT  ctr  i/ 


/in 

/I 

Allouablc  Tarqet  Device  Types: 

PAL16L8-15 

leeiii 

1/ 

/fl 

Inputs  11/ 

PIN 

11. .31  <  tA1..3]  ; 

/e 

48000  Address  Al  to  A3 

1/ 

PIN 

14.. 6]  X  tFC0..2]  5 

/# 

48000  Function  FCO. .2 

♦/ 

PIN 

7  X  'AS  j 

/• 

48000  AS/ 

1/ 

PIN 

8  X  SLOCLr  : 

/• 

REGULAR  CLK  154  Kh: 

♦/ 

PIN 

9  »  ! EBLTO  j 

/I 

Enable  But  Tiet  Out 

1/ 

/♦I 

Outputs  11/ 

PIN 

12  =  'LIACN  ; 

/I 

Lxal  interrupt  ACK/ 

1/ 

PIN 

13  X  llACk  { 

/I 

Any  interrupt  ACk/ 

1/ 

PIN 

14  *  STATEl  ; 

/e 

8T0  state  aachine  statel 

1/ 

FIN 

15  *  STATEO  } 

/♦ 

BTO  state  eachint  stateO 

♦/ 

PIN 

17  X  <BTO  5 

/• 

But  TiM-out 

1/ 

PIN 

18  X  'VPA  1 

/• 

48000  VPA/ 

♦/ 

PIN 

19  X  'EXTIACi,  5 

/§ 

External  interrupt  ACk/ 

1/ 

/**  Declarations  and  Intertidiate  Variable  Befinitions  le/ 


FIELD  FCN*  [FC2..03  j 
FIELD  ADR:  (A3..1]  ; 

zee  Lo^ic  Equations  ti/ 

BTQ  *  EBLTO  (  STATEl  B  'STATEO  ; 

lACk  »  FCN:7  ; 

LIACL  *  FCN:7  (  AS  4  !A3  I  A2  I  Ai; 

EITIACK  :  FGN:7  t  A3  4  !A2 

•  FCN:7  4  A3  4  A2  4  'Al 
I  FCN:7  4  !A3  4  A2  4  'Al 
t  FCN:7  4  !A3  4  !A2  4  Al  ; 

VPA  :  FCN:7  4  AS  4  A3  4  A2  4  A|  ; 

STATEl  :  EBLTO  4  tSTATEl  4  STATED  4  'SLOCLk 
I  EBLTO  4  STATEl  ; 

STATED  :  EBLTO  4  'STATEl  4  'STATED  4  SLOCL». 
I  EBLTO  4  'STATEl  4  STATED 
I  EBLTO  4  STATEl  4  STATED  4  ! SLOCLk  ; 


HAKE  INTRPT; 

DATE  0A/05/8A  ; 

REV  02  I 
DESISNEF  LEHUANN  ; 

COttPANr  VNEtRtctaliftt  ; 
ASSENB.Y  CPUl  ; 

LOCATION  48  ; 


I*  This  UMXCt  pcrforas  tao  indtptndcnt  Tunctiont:  */ 
;»  ]]  Adr  NUT  for  DRAH  A8  »/ 
/*  21  Prioity  tncodir  at  id  74LSI48  */ 

/>  Alloaibl*  Target  Dfvict  Types:  PAII0L8*IS  */ 
Inputs  «»/ 


FIN 

1 

s 

A17  } 

/a 

FIN 

2 

s 

A18  ; 

/a 

FIN 

3 

s 

ADSEL  : 

/a 

FIN 

4 

s 

■IR87  ; 

/a 

FIN 

S 

s 

I1R86  ; 

/a 

PIN 

6 

s 

IIROS  i 

/a 

FIN 

7 

S 

>1884  : 

/a 

PIN 

8 

s 

•1R8:  i 

/a 

FIN 

9 

S 

IIR8:  ; 

/a 

FIN 

11 

s 

IIR61  : 

/a 

FIN 

16 

s 

'AS  { 

/a 

FIN 

17 

s 

IRES  i 

/a 

/a* 

Outputs 

«/ 

PIN 

i: 

8 

'IPLO  5 

/a 

FIN 

13 

s 

•IPLl  5 

/a 

FIN 

14 

8 

'IPL2  5 

/a 

FIN 

IS 

8 

■RESET  } 

/a 

PIN 

18 

S 

'START  ; 

/e 

PIN 

19 

8 

IRAS  : 

/a 

48000  address  line  A17  •/ 

A18  »/ 

ADR  nUI  Select  •/ 

Highest  Priority  Int  RO  •/ 


•/ 

1/ 

*/ 

»/ 

e/ 

Loaest  Priority  */ 

48000  AS/  »/ 

VHEbut  SYSRESET  »/ 

46000  Interrupt  inputs  •/ 

t/ 

•/ 

RESET  to  board  •/ 

START  after  reset  fetch  SSP  4  PC  »/ 
ORAfi  address  8  •/ 


/**  Declarations  and  InterNdiate  Variable  Definitions  •»/ 

/**  Logic  Equations  *•/ 

RA&  X  A17  4  ADSEL 
I  Ata  4  'ADSEL  : 

IPl2  >  IR87  I  IR84  I  IROS  •  IRS4  $ 

IPLl  *  1R87 

I  1R84 

•  IRB3  4  I1R04  4  !IRaS 
I  IR02  4  !IRQ4  4  MR8S  ; 

IPlO  X  IR87 

f  IRQS  4  '1R84 
I  IRO:  4  'IR84  4  'IRSO 
t  lR8i  4  !IR82  4  '1R84  4  '1R04  ; 

RESET  X  RES  ; 

RES 

•  START  4  IAS 

I  START  4  'Alh  : 


START  * 


tSJllOOM 


SBca  vncBus  processor 


OCLAVSt^ 


FIP  Dump  Table  Description 


11/5/89 


Column  Description 
0  Air  Speed 

1  Angle  of  Attack  -  always  0 

2  Vertical  velocity  -  0  to  4096  with  2048=0  velocity 

3  Heading  Deviation 

4  Roll  Angle 

5  Pitch  Angle 

6  Altitude  Deviation 


Column 

Channel 

Description 

7 

0 

Raw  Altitude  Set 

8 

1 

Raw  Heading  Set 

9 

2 

0 

10 

3 

0 

1  1 

4 

Raw  Altitude 

12 

5 

Raw  Air  Speed 

13 

6 

Raw  Pitch 

14 

7 

Raw  Roll 

15 

8 

Raw  Z 

16 

9 

Raw  Y 

17 

10 

Raw  X 

APPE24DIX  C 

T/MEbus  BACKPLANE  CONNECTORS  AND  VME  BOARD  CCWNECTORS 

I# 

INTRODUCTION 

This  appendix  identifies  the  VMEbus  backplane  Jl/Pl  connector  pin  assignments. 
The  following  table  lists  the  pin  assignments  by  pin  number  order.  (The 
connector  consists  of  three  rows  of  pins  labeled  rows  A,  B,  and  C.) 


Jl/Pl  Pin  Assignments 


PIN 

NUMBER 

ROW  A 

SIGNAL 

MNEMONIC 

ROW  B 

SIGNAL 

MNEMONIC 

ROW  C 

SIGNAL 

MNEMONIC 

1 

DOO 

BBSY* 

DOS 

2 

DOl 

BCLR* 

D09 

3 

DO  2 

ACFAIL* 

DIO 

4 

D03 

BGOIN* 

Dll 

5 

D04 

BGOOUT* 

D12 

6 

D05 

BGIIN* 

D13 

7 

D06 

BGIOUT* 

D14 

8 

D07 

BG2IN* 

D15 

9 

GND- 

BG20UT* 

GND  - 

10 

SYSCLK 

BG3IN* 

.  SYSFAIL* 

11 

GND- 

BG30UT* 

BERR* 

12 

DSl* 

BRO* 

SYSRESET* 

13 

D60* 

BRl* 

LWORD* 

14 

WRITE* 

BR2* 

AMS 

15 

GND- 

BR3* 

A23 

16 

DTACK* 

AMO 

A22 

17 

GND- 

AMI 

A21 

18 

AS* 

AM2 

A20 

19 

GND- 

AM3 

A19 

20 

lACK* 

GND  - 

A18 

21 

lACKIN* 

SERCLK  (1) 

AI7 

22 

LACKOUT* 

SERDAT  (1) 

A16 

23 

AM4 

GND  - 

A15 

24 

A07 

IR07* 

A14 

25 

A06 

IRQ6* 

A13 

26 

AO  5 

IRQ5* 

A12 

27 

A04 

IRQ4* 

All 

28 

AO  3 

IRQ3* 

AiO 

29 

A02 

IRQ2* 

A09 

30 

AOl 

IRQl* 

A08 

31 

-12V 

+5V  STDBY 

+  12V 

32 

+5V 

+5V 

+5V 

NOTE: 

(1) 

SL'RCLK  and  SERDAT  represent  provis 
s(jecial  serial  communication  bus  pro 
ix'inn  Linalize-d. 

ion  for  a 
tocol  still 

c-i/(:-2 


APPENDIX  B 


VMEbus  connector/pin  DESCRIPTION 


INTRODUCTION 

Itiis  appendix  describes  the  VMEbus  pin  connections.  The  following  table 
identifies  the  VMEbus  signals  by  signal  mnemonic,  connector  and  pin  number,  and 
signal  characteristic. 


WEbus  Signal  Identification 


CONNECTOR 

SIGNAL  AND 

MNEMONIC  PIN  NUMBER  SIGNAL  NAME  AND  DESCRIPTION 


ACFAIL*  IB:  3 


lACKIN*  lA:  21 


lACKOl/T*  lA:  22 


AM0-AM5 

lA: 

23 

IB: 

16, 

17 

18, 

19 

1C: 

14 

AS* 

lA: 

18 

A01-A23 

lA: 

1C: 

24-30 

15-30 

A24-A31 

2B: 

4-11 

BBSY*  IB:  1 


BCLR*  IB:  2 


AC  FAILURE  -  Qpen-col lector  driven  signal  which 
indicates  that  the  AC  input  to  the  power  supply  is 
no  longer  being  provided  or  that  the  required 
input  voltage  levels  are  not  being  met. 

INTERRUPT  ACKNOWLEDGE  IN  -  Totem-pole  driven 
signal.  lACKIN*  and  lACKOUT*  signals  form  a 
daisy-chained  acknowledge.  The  lACKIN*  signal 
indicates  to  the  VME  board  that  an  acknowledge 
cycle  is  in  progress. 

INTERRUPT  ACKNOWLEDGE  OUT  -  Totem-pole  driven 
signal.  lACKIN*  and  lACKOUT*  signals  form  a 
daisy-chained  acknowledge.  The  lACKOUT*  signal 
indicates  to  the  next  t^ard  that  an  acknowledge 
cycle  is  in  progress. 

ADDRESS  MODIFIER  (bits  0-5)  -  Three-state  driven 
lines  that  provide  additional  information  about 
the  address  bus,  such  as  size,  cycle  type,  and/or 
DTB  master  identification. 

ADDRESS  STROBE  -  Three-state  driven  signal  that 
indicates  a  valid  address  is  on  the  address  bus. 

ADDRESS  bus  (bits  1-23)  -  Three-state  driven 

address  Lines  that  specify  a  memory  address. 

ADDRESS  bus  (bits  24-31)  -  Three-state  driven  bus 
expansion  address  lines. 

BUS  BUSY  -  Open-collector  driven  signal  generated 
by  the  current  DIB  master  to  indicate  that  it  is 
using  the  bus. 

BUS  CLEAR  -  Totem-pole  driven  signal  generated  by 
the  bus  arbitrator  to  request  release  by  the 
current  DTB  master  in  the  event  that  a  higher 
level  is  requesting  the  bus. 


B-1 


VMEbus  Signal  Identification  (cont'd) 


• 

SIGNAL 

MNEMONIC 

CONNECTOR 

AND 

PIN  NUMBER 

SIGNAL  NAME  AND  DESCRIPTION 

BERR* 

1C:  11 

BUS  ERROR  -  Open-collector  driven  signal  generated 
by  a  slave.  This  signal  indicates  that  an 
unrecoverable  error  has  occurred  and  the  bus  cycle 
must  be  aborted. 

BGOIN*- 

BG3IN* 

IB:  4,6, 

8,10 

BUS  GRANT  (0-3)  IN  -  Totem-pole  driven  signals 
generated  by  the  Arbiter  or  Requesters.  Bus  grant 
in  and  out  signals  form  a  daisy-chained  bus  grant. 
The  bus  grant  in  signal  indicates  to  this  board 
that  it  may  become  the  next  bus  master. 

BGOOUT*- 

BG30UT* 

IB:  5,7, 

9,11 

BUS  GRANT  (0-3)  OUT  -  Totem-pole  driven  signals 
generated  by  Requesters.  Bus  grant  in  and  out 
signals  form  a  daisy-chained  bus  grant.  The  bus 
grant  out  signal  indicates  to  the  next  board  that 
it  may  become  the  next  bus  master. 

BR0*-BR3* 

IB:  12-15 

BUS  REQUEST  (0-3)  -  Open-collector  driven  signals 
generated  by  Requesters.  These  signals  indicate 
that  a  DTB  master  in  the  daisy-chain  requires 
access  to  the  bus. 

1 

1 

• 

DSO* 

lA:  13 

DATA  STROBE  0  -  Three-State  driven  signal  that 
indicates  during  byte  and  word  transfers  that  a 
data  transfer  will  occur  on  data  bus  lines 
(D00-DO7). 

( 

i 

\ 

n 

DSl* 

lA:  12 

DATA  STROBE  1  -  Three-State  driven  signal  that 
indicates  during  byte  and  word  transfers  that  a 
data  transfer  will  occur  on  data  bus  lines 
(D08-D15) . 

r 

i. 

i 

f 

\ 

CTACK* 

lA:  16 

DATA  TRANSFER  ACKNOWLEDGE  -  Open-collector  driven 
signal  generated  by  a  DTB  slave.  The  falling  edge 
of  this  signal  indicates  that  valid  data  is 
available  on  the  data  bus  during  a  read  cycle,  or 
that  data  has  been  accepted  from  the  data  bus 
during  a  write  cycle. 

\ 

» 

> 

1 

1 

t 

D00-D15 

lA:  1-8 

1C;  1-8 

DATA  BUS  (bits  0-15)  -  Three-state  driven  bidirec¬ 
tional  data  lines  that  provide  a  data  path  between 
the  DTB  master  and  slave. 

D16-D31 

23:  14-21 

2B:  23-30 

DATA  BUS  (bits  16-31)  -  Three-state  driven  bi¬ 

directional  lines  for  data  bus  expansion. 

• 

GIJD 

lA:  9,11, 
15,17,19 

IB:  2C,23 
iC:  9 

23:  2,12, 

.1 .. ,  :■  i. 

GROUND 

€ 

VMEbus  Signal  Identification  (cont'd) 


SIGNAL 

MNEMONIC 

lACK* 

IRQ1*-IRQ7* 

LWORD* 

[RESERVED] 

SERCLK 

SERDAT 

SYSCLK 

SYSFAIL* 

5YSRESET* 

WRITE* 


CONNECTOR 

AND 

PIN  NUMBER  SIGNAL  NAME  AND  DESCRIPTION 


lA:  20 


IB:  24-30 


1C:  13 

2B:  3 

IB:  21 


IB:  22 


lA:  10 


1C:  10 


1C:  12 


LA:  14 


INTERRUPT  ACKNOWLEDGE  -  Open-collector  or 
Three-state  driven  signal  from  any  r-lASTER 
processing  an  interrupt  request.  Routed  via 
backplane  to  Slot  1,  where  it  is  looped  back  to 
become  Slot  1  lACKIN*  to  start  the  interrupt 
acknowledge  daisy-chain. 

INTERRUPT  REQUEST  (1-7)  -  Open-collector  driven 
signals,  generated  by  an  interrupter,  which  carry 
prioritized  interrupt  requests.  Level  seven  is 
the  highest  priority. 

LONGWORD  -  Three-state  driven  signal  to  indicate 
that  the  current  transfer  is  a  32-bit  transfer. 

RESERVED  -  Signal  line  reserved  for  future  VMEbus 
enhancements.  This  line  must  not  be  used. 

A  reserved  signal  v^ich  will  be  used  as  the  clock 
for  a  serial  communication  bus  protocol  which  is 
still  being  finalized. 

A  reserved  signal  which  will  be  used  as  the 
transmission  line  for  serial  communication  bus 
messages . 

SYSTEM  CLOCK  -  A  constant  16-MHz  clock  signal 
that  is  independent  of  processor  speed  or  timing . 
This  signal  is  used  for  general  system  timing 
use. 


SYSTEM  FAIL  -  Open-collector  driven  signal  that 
indicates  that  a  failure  has  occurred  in  the 
system.  This  signal  may  be  generated  by  any 
module  on  the  VMEbus. 

SYSTEM  RESET  -  Open-collector  driven  signal 
which,  when  low,  will  cause  the  system  to  be 
reset . 

WRITE  -  Three-state  driven  signal  that  specifies 
the  data  transfer  cycle  in  progress  to  be  either 
read  or  write.  A  high  level  indicates  a  read 
operation;  a  low  level  indicates  a  write 
operation. 
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VMEbus  Signal  Identification  (cont'd) 


SIGNAL 

MNEMONIC 

+5V  STOBY 

+5V 

+12V 


CONNECTOR 

AND 

PIN  NUMBER  SIGNAL  NAME  AND  DESCRIPTION 


IB:  31  +5  Vdc  STANDBY  -  This  line  supplies  +5  Vdc  to 

devices  requiring  battery  backup. 

lA:  32  +5  Vdc  Power  -  Used  by  system  logic  circuits. 

IB:  32 
1C:  32 
2B:  1,13,32 


1C:  31 


+12  Vdc  Power  -  Used  by  system  logic  circuits. 
-12  Vdc  Power  -  Used  by  system  logic  circuits. 


-12V 


lA:  31 
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This  material  contains  information  of  proprietary  interest  to 
VMEspecia lists.  It  has  been  supplied  in  confidence  and  the  recipient,  by 
accepting  this  material,  agrees  that  the  subject  matter  will  not  be  copied 
or  reproduced,  in  whole  or  in  part,  nor  its  contents  revealed  in  any  manner 
or  to  any  person  except  to  meet  the  purpose  for  which  it  was  delivered. 


VMEspecia lists  has  made  every  effort  to  ensure  that  this  manual  is 
accurate  and  complete.  Still,  the  company  reserves  the  right  to  make 
improvements  or  changes  in  the  product  described  in  this  document  at  any 
time  and  without  notice.  Furthermore,  VMEspecia lists  assumes  no  liability 
arising  out  of  the  application  or  use  of  the  device  described  herein. 


The  electronic  equipment  described  herein  generates,  uses,  and  can 
radiate  radio  frequency  energy.  Operation  of  this  equipment  in  a 
residential  area  is  likely  to  cause  radio  interference,  in  which  case  the 
user,  at  his  own  expense,  will  be  required  to  take  whatever  measures  may  be 
required  to  correct  the  interference. 


This  product  has  been  designed  to  operate  in  a  VMEbus  'lectrical 
environment.  Insertion  into  any  card  slot  which  is  not  VMEbus  compatible 
is  likely  to  cause  serious  damage.  Please  exercise  particular  care  with 
the  3U  sized  version  of  this  product,  which  can  be  easily  damaged  if 
inserted  into  an  I/O  slot,  rather  than  into  a  standard  VMEbus  PI  slot. 
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1 .  General  Product  Description 

The  VMEspecia lists  VME750  (figure  1)  is  a  multi-function  plug-in 
accessory  module  for  use  with  the  SBC2  VMEbus  computer,  having  the 
following  features: 

*  Adds  two  additional  async  serial  ports  with  baud  rate 

generators 

*  Adds  an  additional  16-bit  counter/timer 

*  Adds  a  real-time  clock  with  lithium  battery  power  source 

*  Adds  two  static  memory  sockets,  which  can  hold  EPROM'S  or 

RAM's.  These  sockets  are  also  powered  by  the  continuous 
lithium  power  source  and  can  be  used  for  up  to  64Kbytes 
of  non-volatile  RAM,  or  up  to  128Kbytes  of  EPROM.  With 
the  EPROM  sockets  on  the  SBC2,  a  total  of  256Kbytes  of 
EPROM  can  be  accommodated.  When  used  with  RAM,  a  front- 
panel  mounted  write-protect  switch  provides  a  mechanism 
for  insuring  data  integrity  during  system  operation. 

*  Provides  a  socket  for  an  MC68881  floating  point  coprocessor. 

*  Provides  a  socket  for  an  MC68451  memory  management  unit. 

*  Provides  a  four  bit  parallel  input  port  through  which  the 

SBC2  can  sense  a  jumper  group  for  configuration  information. 


The  VME750  mounts  rigidly  to  the  SBC2;  together  they  share  a  double 
wide  front  panel.  The  two  board  set  occupies  two  positions  in  the  VMEbus. 


VME750-C:  Without  memory  management,  Without  co-processor 
VME750-F;  With  floating  point  co-processor,  without  MMU 
VME750-M:  With  memory  management  unit,  without  coprocessor 
VME750-E:  With  memory  management,  with  coprocessor 


Add  -6U  suffix  to  denote  6U  {Double  High)  front  panel  for  secure 
mounting  in  6U  chassis. 
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2.  Inspection,  Warranty,  and  Repair 


Upon  receipt,  carefully  inspect  the  VME750  module  and  shipping 
container  for  evidence  of  damage  in  shipping.  Notify  the  factory  immediately  if 
shipping  related  damage  is  suspected. 


Limited  Warranty 

VMEspecialists  warrants  this  product  to  be  free  from  defects  in 
workmanship  and  materials  under  normal  use  and  service  and  in  its  original, 
unmodified  condition,  for  a  period  of  one  year  from  the  time  of  purchase. 
If  the  product  is  found  to  be  defective  within  the  terms  of  this  warranty, 
VMEspecialists'  sole  responsibility  shall  be  to  repair,  or  at 
VMEspecialists'  option  to  replace,  the  defective  product,  provided  the 
product  is  returned  transportation  prepaid  and  insured  to  VMEspecialists. 
All  replaced  products  become  the  sole  property  of  VMEspecialists. 

VMEspecialists'  warranty  of  and  liability  for  defective  products  is 
limited  to  that  set  forth  above.  VMEspecialists  disclaims  and  excludes  all 
other  product  warranties  or  product  liability,  expressed  or  implied, 
including,  but  not  limited  to,  any  implied  warranties  of  merchantability  or 
fitness  for  a  particular  purpose  or  use,  liability  for  negligence  in 
manufacture  or  shipment  of  product,  liability  for  injury  to  persons  or 
property,  or  for  any  incidental  or  consequential  damages. 


Service  Policy 

Before  returning  a  product  for  repair,  verify  as  well  as  possible  that 
the  suspected  unit  is  at  fault.  Then  call  the  factory  for  a  Return 
Material  Authorization  (RMA)  number.  Carefully  package  the  unit,  in  the 
original  shipping  carton  if  this  is  available,  and  ship  prepaid  and  insured 
with  the  RMA  number  written  on  the  outside  of  the  package.  Include  a 
return  address  and  the  telephone  number  of  a  technical  contact.  For  out- 
of-warranty  repairs,  a  purchase  order  for  repair  charges  must  accompany  the 
return.  VMEspecialists  will  not  be  responsible  for  damage  due  to  improper 
packaging  of  returned  items. 


out  of  Warranty  Repairs 

Out  of  warranty  repairs  will  he  billed  on  a  material  and  labor  basis. 
The  current  minimum  repair  charge  is  $100.  Customer  approval  will  be 
obtained  before  repairing  any  item  if  the  repair  charges  will  exceed  one 
third  of  the  quantity  one  list  price  for  that  unit.  Return  transportation 
and  insurance  will  be  billed  as  part  of  the  repair  and  is  in  addition  to 
the  minimum  charge. 

VMEspecialists  also  makes  available  repair  on  an  immediate  exchange 
basis.  In  most  cases,  a  replacement  can  be  shipped  on  the  day  of  request. 
This  service  is  billed  at  a  flat  rate,  currently  30%  of  the  quantity  one 
price. 
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3.  Specifications 
VME  compatibility; 

Static  Memory  Capacity: 

Serial  I/O  Ports: 

Rea!  time  clock: 
Optional  functions: 

Environmental : 

Power  Requirements: 

(In  addition  to  SBC2 
specification) 

SIZE: 

WEIGHT:  0 


Compliance  with  VMEbus  specification  rev.  "C.1" 
Shares  double  wide  front  panel  with  SBC2,  to 
form  single  high  (3U)  two  board  set. 

Provides  continuity  of  lACK  and  BGOUT  daisy  chains 

128Kbytes  (EPROM) 

64Kbytes  (RAM) 

200  ns.  access  time 

Write  protect  switch  on  front  panel 

Uses  lithium  cell  for  non-volatility 

Two  async,  using  MC68681,  with  integral  counter/ 
timer  and  dual  independently  programmable  baud 
rate  generators. 

100  year  calendar,  12  and  24  hour  modes 

MC68881  floating  point  co-processor 
MC68451  memory  management 

Operating  temperature:  0  to  55  degrees  C 
Storage  temperature:  -40  to  80  degrees  C 

Operating  humidity:  0  to  90%  (no  condensation) 

Storage  humidity:  0  to  90%  (no  condensation) 

1.2A  MAX  (0.9A  TYP)  at  +5VDC  +/-  5% 

0.035A  MAX  at  +12VDC 
0.035A  MAX  at  -12VDC 

With  MC68451  MMU  add  0.3A  MAX 
With  MC6888 1  CO-PROC  add  0.15A  MAX 

VME620:  129  mm.  high,  20  mm.  wide,  172  mm.  deep 

VME620-6U:  262  mm.  high,  20  mm.  wide,  172  mm.  deep 
(viewed  from  front  panel) 

.23  Kg,  0.5  pounds. 
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4.  Installation  and  Jumper  Options 


Pric"  to  installation,  the  board  options  must  be  configured  by  way  cf 
jumpers.  The  ten  user  configurable  jumpers  specify  : 

JPR1;  Address  strobe  timing 
JPR2:  IDS  data  strobe  timing 
JPR3:  UDS  data  strobe  timing 
JPR4:  Static  memory  type  select 
JPR5:  Static  memory  type  select 
JPR6:  Static  memory  type  select 

JPR7-JPR10:  Parallel  sense  block  for  configuration  information 
Refer  to  figure  2  for  assistance  in  locating  jumper  block  positions. 


4.1  Memory  management  options:  Jumper  groups  1-3 


0  A 

0  B  JP1 
0  C 

0  A 

0  B  JP2 
0  C 

0  A 

0  B  JP3 
0  C 


4.2  Static  memory  type  select 

Use  jumper  groups  JP4..JP6  to  define  the  type  of  static  memory  (if 
any)  in  use  at  locations  U12  and  U13.  Refer  to  the  table  below: 


Device 

JP4 

JP5 

JP6 

2764  EPROM 

NONE 

B— A 

B-A 

27128  EPROM 

B— C 

B— A 

B-A 

27256  EPROM 

B— C 

B— A 

B-D 

27512  EPROM 

B-C 

B— D 

B-D 

8Kx8  RAM 

A— B 

NONE 

B-C 

32Kx8  RAM 

B— C 

B— C 

B~C 

The  two  static  memory  devices  in  the  sockets  U12  and  U13  must  be  of 
identical  type.  The  odd  addressed  device  (D07..D00)  should  be  in  location 
U13.  The  even  addressed  device  (D15..D08)  should  be  in  U12.  Use  200ns  or 
faster  devices. 

These  options  are  set  at  the  factory  for  8Kx8  static  RAMS. 


When  using  the  memory  management  option  of 
VME750,  connect  A— B  on  each  group  JP1..JP3. 
You  must  jumper  A— B  when  the  68451  MMU 
is  in  place. 

When  there  is  no  68451  memory  management  unit 
in  place,  connect  B— C  on  each  group. 
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4.3  Parallel  sense  jumper  block 


Use  jumper  groups  JP7..JP10  to  convey  configuration  information  to  the 
processor.  JP7  and  JP8  A..C  are  located  beside  static  memory  socket  U13. 
JP9  and  JP10  A..C  are  located  on  the  board  edge  beside  the  MC68881  socket. 

In  each  case,  jumper  A— B  to  select  a  data  value  of  1.  Jumper  B— C  to 
select  a  value  of  0. 

The  jumper  blocks  can  be  sensed  by  the  MPU  through  a  read  of  the  68681 
QUART. 

Jumper  group  QUART  Input  Pin 


JP7 

IP2 

JP8 

IPS 

JP9 

IP5 

JP10 

IP4 

10 
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4.4  Installation  in  a  VMEsystem 


The  VME750  accessory  module  provides  continuity  of  all  bus  grant  and 
interrupt  acknowledge  daisy  chains.  There  is  no  need  to  jumper  these 
positions  on  the  VMEbus  PI  backplane. 

This  product  has  been  designed  to  operate  in  a  VMEbus  electrical 
environment.  Insertion  into  any  card  slot  which  is  not  VMEbus  compatible 
is  likely  to  cause  serious  damage.  Please  exercise  particular  care  with 
the  3U  sized  version  of  this  product,  which  can  be  easily  damaged  if 
inserted  into  an  1/0  slot,  rather  than  into  a  standard  VMEbus  P1  slot. 


5.  Theory  of  Operation 

The  VME750  uses  the  following  locations  in  the  SBC2  processor's 
address  space: 


F20000  -  F3FFFF 
F40000  —  F5FFFF 
F60000  -  F7FFFF 
F80000  -  F9FFFF 
FAOOOO  -  FBFFFF 


National  MM58274  Real  Time  Clock 
Motorola  MC68681  QUART 
Motorola  MC68881  Floating  Point  Processor 
Motorola  MC6S451  Memory  Management  Unit 
Static  Memory  Sockets  U12,  U13 


5.1.  Real-Time  Clock 


The  real-time  clock  can  be  accessed  through  byte  transfers  to  the 
following  addresses: 


F20001 

Control  Register 

Split  R/W 

F20003 

10th 's  of  second 

Read  ONLY 

F20005 

Seconds 

R/W 

F20007 

Tens  of  seconds 

R/W 

F20009 

Minutes 

R/W 

F2000B 

Tens  of  minutes 

R/W 

F2000D 

Hours 

R/W 

F2000F 

Tens  of  hours 

R/W 

F20011 

Days 

R/W 

F20013 

Tens  of  days 

R/W 

F20015 

Months 

R/W 

F20017 

Tens  of  months 

R/W 

F20019 

Years 

R/W 

F2001B 

Tens  of  years 

R/W 

F2001D 

Day  of  the  week 

R/W 

F2001F 

Clock  setting/interrupt  register 

The  MM58274  can  count  to  100  years  and  fully  accounts  for  leap  years. 
It  can  work  in  12  or  24  hour  mode. 

The  VME750  does  not  support  interrupts  from  the  real-time  clock.  In 
all  reads  and  writes,  only  bits  03.. DO  are  meaningful.  Refer  to  the  Ntl 
MM58274  data  sheet  for  additional  information. 
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5.2.  MC68681  QUART 


The  on-board  68681  provides  two  asyncronous  serial  channels,  a 
counter/timer,  and  two  prograinmable  baud  rate  generators.  The  device  can 
interrupt  on  processor  interrupt  level  1  (autovector).  The  68681  is  also 
used  as  a  parallel  input  port  to  sense  the  configuration  of  jumper  blocks 
JP7  through  JP10. 

Access  the  68681  through  byte  reads/writes  to  the  odd  addresses  in  the 
range  F40001  through  F4001F. 


5.3.  MC68881  Floating  Point  Co-processor 

There  is  a  socket  provided  for  an  optional  MC68881  device.  Software 
can  attempt  a  read  or  write  to  one  of  the  HC68881  locations  (mapped  F60000 
to  F7FFFF).  If  a  BERR  results,  then  the  68881  option  is  not  available  Uhe 
socket  is  empty).  The  user  needs  only  insert  an  MC68881  into  the  socket  at 
Icoation  U11  to  activate  this  option. 


5.4.  MC68451  Memory  Management  Unit 


The  VME750  is  designed  to  work  with  or  without  memory  management. 
Memory  management  will  slow  processor  bus  cycles,  but  is  often  a 
requirement  for  UNIX(TM:AT&T)  and  other  multi-user  general  purpose  systems. 
The  68451  mcps  logical  to  physical  addresses  and  permits  segment  write 
protection.  The  68451  is  mapped  into  the  processor's  address  space  in  the 
range  of  F80000  through  F9FFFF. 

The  socket  at  location  U3  MUST  contain  either  an  MC68451  or  a  special 
pass-through  circuit  module  (when  the  WU  option  is  not  required).  Jumper 
groups  JP1  through  JP3  must  be  set  consistent  with  the  contents  of  socket 
U3. 


5.5.  Static  Memory  (Sockets  U12,  U13) 

Data  transfers  to  or  from  addresses  FAOOOO  through  FBFFFF  are  directed 
to  the  static  memory  sockets  U12  and  U13.  Jumper  groups  J4..JP6  should  be 
set  according  to  the  two  identical  static  memory  devices  in  place. 

There  is  a  front  panel  mounted  switch  which  can  be  set  to  either  a  R/w 
position  or  to  a  W-PROT  position  for  write  protection  of  static  RAM.  The 
odd  addressed  device  (DO7..DO0)  is  held  in  socket  U13.  The  even  addressed 
device  (D15..D08)  is  held  in  socket  U12.  The  devices  should  have  200  ns. 
or  faster  access  time. 

The  static  memory  is  powered  by  the  on-board  lithium  battery  for  non¬ 
volatile  operation  of  static  RAM.  Be  sure  to  use  the  low  power  versions  of 
static  memory  devices,  designed  for  battery  backup. 

The  two  sockets,  U12  and  U13  can  hold  EPROM  devices  2764,  27128, 
27256,  or  27512.  They  can  hold  8Kx8  or  32Kx8  static  RAMs. 
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6.  Serial  Connectors  JA  and  ^ 


Ja  Pinout 

(68681 

Channel  A) 

Pin  Number 

Name 

Oirection 

1 

GND 

3 

RXDA 

IN 

5 

TXDA 

OUT 

7 

CTSA 

IN 

9 

RTSA 

OUT 

13 

GNO 

Jb  Pinout 

Pin  Number 

Name 

Direction 

1 

GNO 

3 

RXDB 

IN 

5 

TXDB 

OUT 

7 

CTSB 

IN 

9 

RTSB 

OUT 

13 

GNO 

14 


7.  Parts  List 


PART  NUMBER  DESCRIPTION 

PER 

LOCATION 

1001008125 

Data  delay  device,  ODU-222-125 

1 

U10 

1001100327 

Oscillator,  32.768  Khz 

1 

XTAL1 

1001100368 

Oscillator,  3.68Mhz  TTL  Crystal 

1 

XTAL2 

1001110001 

Battery,  3V  lith  coin 

1 

B1 

1001120001 

Battery,  holder  coin 

1 

B1 

1001210003 

Switch,  T101MH9AVB 

1 

SW1 

1002001120 

Socket,  dip,  machine,  20  pin 

3 

U8,U9,U19 

1002001128 

Socket,  dip,  machine,  28  pin 

2 

U12,U13 

1002006810 

Socket,  pga,  machine,  64  pin 

3 

U1,U3,U11 

1003023226 

Capacitor,  tantalum,  22ufd 

2 

C3,C4 

1003032100 

Capacitor,  ceramic,  lOpfd,  .100  rad 

3 

C1,C5,C6 

1003032102 

Capacitor,  ceramic,  lOOOpfd,  disk 

1 

C8 

1003032334 

Capacitor,  ceramic,  .33ufd,  256kramguard 

14 

C7,C9-C21 

1003218001 

Capacitor,  trimmer,  2.1pf-18pf 

1 

C2 

1004000101 

Resistor,  100  ohm 

1 

R3 

1004000103 

Resistor,  10k  ohm 

4 

R1,R7,R8,R10 

1004000201 

Resistor,  200  ohm 

1 

R6 

1004000330 

Resistor,  33  ohm 

1 

R2 

1004000471 

Resistor,  470  ohm 

3 

R4,R5,R11 

1004000472 

Resistor,  4.7k  ohm 

4 

R9,R20,R30,R31 

1004704729 

Resistor  network,  Allen  Bradley,  710A472 

1 

RP1 

1005003904 

Transistor,  2N3904 

1 

Q2 

1005003905 

Transistor,  2N3905 

2 

Q1.Q3 

1005010746 

Diode,  1N746 

2 

D1,n3 

1005013600 

Diode,  1N3600 

1 

02 

1006002505 

Conn,  96  pin  din,  AMP  #  532505-1 

1 

PI 

1006011032 

Conn,  header  standoff,  32  Pin  BBS-132-GC  2.2 

U2 

1006032014 

Conn,  Molex  39-26-7148 

2 

J1,J2 

1007020014 

IC.  74LS14 

1 

U20 

1007020245 

1C,  74LS245 

2 

U6,U7 

1007040373 

IC,  74F373 

2 

U4,U5 

1007168681 

IC,  MC68681 

1 

U16 

1007201488 

IC,  1488 

1 

U18 

1007201489 

IC,  1489 

1 

U17 

1007204066 

IC.  74HC4066 

1 

U14 

1007258274 

IC,  1t158274 

1 

U15 

1007420153 

Pal.  N82S153A 

1 

U19 

1007421683 

Pal, Tib,  16L8-15CN 

2 

U8,U9 

1011006009 

Front  panel,  3U  8HP 

1 

1011010361 

PCA,  SBCSACC,  FAB  0320-0036  Rev  A 

1 
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ABOUT  THIS  MANUAL 

The  primary  goal  of  this  manual  is  to  give  you  the  information  you'll  need  to  get  the  most  out 
of  this  interactive  development  system.  The  information  is  presented  in  three  different 
formats: 


Discussion 

The  front  section  contains  discussions  on  various  MACH  2 
programming  topics.  As  you  read  through  this  section  of  the 
manual,  use  the  glossary  and  appendices  as  sources  of 
additional  information  about  unfamiliar  words  or  topics . 

Glossary 

The  middle  section  is  a  glossary.  The  glossary  is  arranged 
alphabetically,  most  words  are  explained  in  a  wordrpage  format. 

Appendices 

The  final  section  contains  the  appendices.  The  appendices 
contain  very  detailed  information  about  the  MACH  2  system 
and  also  tables  of  information  which  are  too  lengthy  to  be 
included  in  the  front  section. 

OS-9/68000  Technical  Documentation  References 

The  revision  letters  for  the  OS-9/68000  technical  documentation 
references  in  this  manual  are:  Operating  System  Technical 
Manual  -  Revision  F;  Macro  Assembler  User's  Manual  •  Revision  D; 
Operating  System  User's  Manual  •  Revision  F;  C  Compier  User's 
Manual  •  Revision  C. 


^  Beginning  FORTH  Programmers 

We  recommend  that  you  use  a  beginner's  FORTH-83  manual  along  with 
this  manual.  The  glossary  is  a  good  source  of  FORTH  programming 
examples.  The  demonstration  programs  included  with  MACH  2  are  a  good 
source  of  OS-9  (and  MACH  2)  programming  examples. 

b  Experienced  FORTH  Programmers 

Some  new  areas  you  might  want  to  explore  are  local  variables,  the  infix 
assembler,  the  symbolic  disassembler,  subroutine  threading  and  macro 
substitution,  and  the  MACH2-OS-9  interface. 
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PHILOSOPHY  OF  MACH  2 

The  major  objective  behirKt  the  development  of  MACH  2  has  been  to  provide  an 
advanced,  interactive  programming  environment  lor  software  developers  where  the 
programmer's  train  of  thought  is  not  disturbed  or  limited  by  the  programming  environment 
itself. 

FORTH  is  an  appropriate  language  to  fulfill  this  objective  because,  as  a  computer 
language,  it  encourages  freedom  of  expression.  However,  this  same  freedom  carries 
with  it  the  responsibility  of  establishing  self-imposed  standards  of  communication 
with  other  programmers. 

Standards: 

Thus,  one  of  our  goals  has  been  to  adopt  standard  programming  interfaces  wherever 
possible.  This  has  been  done  by  using  standard  source  files  that  can  be  edited  by  any 
text  editor.  This  has  also  been  done  by  providing  a  standard  (infix)  FORTH  assembler 
that  uses  generic  68000  assembly  syntax  and  incorporates  as  many  of  the  functions 
found  in  the  OS-9/68000  Macro  Assembler  as  possible.  Also  included  is  a  symbolic 
disassembler. 

OS-9  Compatibility: 

Another  goal  was  to  put  the  entire  power  of  the  OS-9  Operating  System  at  the  fingertips 
of  MACH  2  users.  This  has  been  achieved  by  features  such  as  high-level  support  of  OS-9 
user  trap  handler  modules,  interactive  execution  of  OS-9  utility  commands,  single-step 
generation  of  compact,  stand-alone  turnkey  applications,  and  OS-9  floating  point  support. 

Spaad: 

One  last  goal  has  been  to  make  MACH  2  run  as  fast  as  possbie  so  that  the 
programmer  doesnl  have  to  worry  about  programming  for  speed.  The  foundation  of 
MACH  2  is  a  subroutine-threaded  FORTH  with  automatic  macro  substitution  which 
results  in  code  that  runs  at  a  speed  comparable  to  a  compiled  high  level  language- 
■code  which  INHERENTLY  njns  2-3  times  faster  than  ANY  other  FORTH  system. 

This  gives  the  programmer  the  combined  advantage  of  the  powerful  debugging 
features  of  an  interactive  language  and  the  speed  of  a  compiled  language,  at  the 
same  instant ! 
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GETTING  STARTED  WITH  MACH  2 

With  MACH  2  you  should  have  received  this  manual,  the  MACH  2  master  disk  with  the 
MACH2  application  and  additional  MACH  2  demonstration  programs. 

The  only  item  you  need  now  to  create  your  own  software  for  the  OS-9/68000  Operating 
System  is  a  system  with  at  least  the  minimum  256K  of  memory  required  by  08-9. 


Starting  MACH  2  Up 

The  MACH  2  application  is  named  MACH2  and  is  located  in  the  CMOS  directory. 

To  enter  MACH  2  type  MACH2.  After  a  few  moments  the  'Palo  Alto  Shipping  Company' 
prompt  will  appear.  At  this  point,  if  you  hit  the  carriage  return  key  you  should  get  an  'ok'. 
You  are  now  ready  to  try  the  examples  in  the  manual  and  on  your  distribution  disk. 
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A  QUICK  INTRODUCTION  TO  FORTH 

What  follows  is  a  brief  introduction  to  the  FORTH  language.  This  is  by  no  means  a 
complete  exposition  of  the  language,  but  if  you  have  never  programmed  in  FORTH 
before  it  will  give  you  an  idea  of  what  FORTH  is  and  how  easy  it  can  be  to  program  in 
FORTH.  For  a  more  thorough  description  of  FORTH  we  suggest  you  purchase  a 
beginner's  manual  on  FORTH  from  your  local  computer  bookstore. 

(See  the  appendices  for  a  list  of  suggested  readings.) 


Some  Guidelines.... 

In  the  following  examples  the  boldface  type  is  used  to  indicate  your  inputs.  The  plain  type 
is  used  for  MACH  2‘s  responses.  Note  that  all  spaces  in  your  inputs  are  significant.  FORTH 
expects  all  words  and  numbers  to  be  separated  from  ear^  other  by  spaces  or  tabs.The  letter 
case  (j.e.  upper  or  lower)  is  not  significant  in  MACH  2  (see  the  LOWER-CASE  glossary  page). 
A  '<cr>'  indicates  that  you  should  press  the  carriage  return  key.  You  may  use  the  backspace 
key  to  correct  any  typing  mistakes  on  the  current  line.  If  MACH  2  ever  responds  with  a '?'  or  a 
'<name>  ?'  you  have  done  something  MACH  2  does  not  urxferstand  or  like.  Try  retyping  the 
line  or  changing  the  vocabulary  search  order  (see  the  ONLY  and  ALSO  glossary  pages). 

The  MACH  2  Promiat 

After  you  see  the  'Palo  Alto  Shipping  Company’  prompt  try  pressing  your  carriage  return 
key  several  times.  Every  time  you  press  a  carriage  return  you  will  see  the  FORTH  prompt 

<cr>  ok  <0> 

The  'ok*  means  as  far  as  FORTH  is  concerned,  everything  is  going  well.  The  ‘<0>'  is 
the  MACH  2  parameter  stack  (the  parameter  stack  is  the  main  stack  in  FORTH,  often 
referred  to  as  just  Ihe  stack')  depth  indicator  (see  the  BASE  glossary  page) . 

FORTH  is  Extensible 

The  foundation  of  FORTH  is  the  "FORTH  dictionary".  The  FORTH  dictionary  is 
exactly  that:  a  collection  of  words  that  define  a  language.  Each  virord  in  the  FORTH 
dictionary,  when  called  upon,  performs  a  specific  action.  This  action  may  be  as 
simple  as  moving  a  number  from  one  part  of  computer  memory  to  another,  or  as 
complex  as  writing  data  to  a  floppy  disk.  This  collection  of  words  is  also  referred  to 
as  the  "FORTH  kemeT. 

EXAMPLE  1 :  Executing  a  FORTH  word. 

We  are  now  going  to  interactively  execute  a  FORTH  word. 

The  word  we  will  execute  is  the  FORTH  word  'WORDS'. 

This  word  will  list  the  names  of  all  of  the  words  in  the 
FORTH  dictionary  to  the  screen.  To  execute  a  FORTH 
word  you  type  the  name  followed  by  a  carriage  return: 
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WORDS  •<cr> 


TURNKEY 

MAKEMODULE 

TCALL 

DUMP 

S 

• 

ASCII 

ASSIGNMODULE 

$ 

DEPTH  <cr> 

QUIT 

\ 

( 

Hit  the  spacebar  to  continue.  <cr> 
ok  <0> 

Pressing  any  key  will  temporarily  stop  the  listing.  When  the 
listing  is  stopped  you  can  press  the  space  bar  to  continue 
the  listing  or  any  other  key  to  terminate  the  listing. 

Now.  writing  a  program  in  FORTH  simply  consists  of  defining  a  new  word  in  temts  of 
words  that  already  exist  in  the  dictionary.  Once  a  new  word  has  been  defined,  it  is 
then  added  to  the  dictionary  and  can  then  be  used  in  the  definition  of  another  word! 

EXAMPLE  2:  Defining  new  FORTH  words. 

Now  we  will  create  two  new  FORTH  words.  The  names  of  our 
FORTH  words  will  be  STAR  and  3STAR: 

;  STAR  42  EMIT  ;  <er>  ok  <0> 

:  3STAR  STAR  STAR  STAR  ;  <cr>  ok  <0> 

Now  that  the  new  words  have  been  defined  we  may  execute 
them  (remember,  to  execute  a  FORTH  word  you  type  the 
name  followed  by  a  carriage  return): 

STAR  <cr»  *  ok  <0> 

3STAR  <cr>  *•*  ok  <0> 

We  start  the  definition  of  a  new  word  with  a  colon.  The  colon  indicates  to  FORTH  that 
we  are  about  to  define  a  new  word.  The  name  which  immediately  follows  a  colon 
(STAR  in  the  above  example)  will  be  the  name  of  the  new  word.  A  semi-colon  marks  the 
end  of  the  definition  of  a  word.  Any  words  between  the  name  and  the  semi-colon 
determine  what  the  word  will  do  when  executed. 

STAR'S  actions  will  be  42  EMIT.  EMIT  is  a  predefined  word  that  prints  out  the  character 
which  corresponds  to  the  ascii  value  passed  to  it.  The  semicolon  marks  the  end  of  the 
definition  of  STAR.  Since  42  is  the  ascii  value  for  an  asterisk,  when  STAR  is  executed, 
an  asterisk  will  be  printed  on  the  screen. 
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After  STAR  is  defined,  it  becomes  part  of  the  FORTH  dictionary  and  can  be  used  in  the 
definition  of  other  FORTH  words  such  as  3STAR.  3STAR‘s  actions  will  be  to  print  3 
consecutive  asterisks  to  the  screen.  The  ability  of  a  computer  language  to  extend 
itself  in  terms  of  itself  is  called  extensibility.  This  is  one  of  many  desirable  features 
that  is  an  integral  part  of  FORTH. 


EXAMPLE  :  Using  the  FORTH  word  'WORDS'  again. 

We  will  now  execute  WORDS  again  to  verify  that  our  two 
new  words,  STAR  and  3STAR  have  been  appended  to 
the  FORTH  dictionary.  If  they  have  been  appended  they 
should  show  up  in  the  listing  of  all  FORTH  words: 

WORDS  <cr> 

STAR  3STAR  TURNKEY  MAKEMODULE 

TCALL  DUMP  S 

ASCII  ASSIGNMODULE  $  OUIT 

\  <cr> 

Hit  the  spacebar  to  continue.  <cr> 
ok  <0> 


FORTH  is  an  Interpretive  Language 

If,  in  Example  2,  you  had  only  typed  42  EMIT,  an  asterisk  would  have  been  printed  on 
the  screen.  You  would  have  interactively  executed  the  word  EMIT.  But  what  happened 
when  you  defined  STAR  in  the  above  example?  Why  was  no  asterisk  printed  on  the 
screen  when  you  typed  EMIT  then?  In  FORTH  there  are  2  modes  of  operation; 


(1) 


Compiling  mode,  which  is  invoked  by  a  colon  to 
indicate  you  are  defining  the  actions  of  a  new  word. 


(2)  Interpreting  or  execution  mode. 


In  FORTH,  whenever  you  hit  the  carriage  return  and  get  an  'ok*  printed  on  the  screen, 
you  know  you  are  in  the  execution  mode.  In  this  mode  you  can  interactively  execute 
any  word,  or  sequence  of  words  that  exist  in  the  dictionary.  For  example,  try  typing 
“3STAR  STAR-  followed  by  a  carriage  return  and  see  what  happens.  TWs  ability  to 
execute  any  word  in  the  dictionary  immediately  is  a  consequence  of  FORTH  being 
an  interpretive  language.  Interpretive  refers  to  the  fact  FORTH  interprets  what  you 
typed  in  and  executes  it  immediately. 
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The  power  of  an  interpretive  language  is  that  you  can  quickly,  and  interactively,  try 
out  any  sequence  of  words  that  you  have  defined.  This  provides  an  environment 
where  you  can  test  out  your  program  at  any  level,  modify  it,  and  test  it  all  out  again  in 
seconds!  If  you've  programmed  before  you  are  probably  familiar  with  the  notion  that 
an  interpretive  implementation  of  a  language  can  be  notoriously  SLOW.  However, 
MACH  2‘s  internal  structure  is  such  that  it  runs  at  the  same  speed  as  traditional  compiled 
languages  such  as  C  or  PASCAL.  With  MACH  2  you  get  speed  and  an  interactive 
development  environment  together.  The  following  diagram  illustrates  this  concept; 


COMPILED 

Language 

Execution 

Q 

Faster  Execution 
Slower  Development 

forth 

Faster  Execution 

Faster  Development 

MsUiail 

Slower  Execution 

INTERPRETED 

Faster  Development 

BASIC 

BATCH 

INTERACTIVE 

OevetQtiment  Method 


FORTH  has  a  Stack 


Having  a  collection  of  words  that  perform  certain  actions  is  fine,  but  how  do  these 
words  communicate  or  pass  data?  Before  answering  this  question  the  concept  of 
the  FORTH  parameter  stack  needs  to  be  introduced. 


Last  ball  in 
is  first  ball 
out. 


First  ball 
in  is  last 
ball  out. 


In  computer  lingo,  another  name  for  the  parameter 
stack  might  be  called  a  LAST-IN-FIRST-OUT  (or  UFO) 
queue.  Think  of  the  stack  as  an  very  taV  tennis 
ball  can  that  can  hold  a  large  number  of  tennis  balls. 

Let's  say  you  put  in  a  tennis  ball  with  #7  on  it,  and  then 
put  one  in  that  has  #2  on  it,  and  then  one  with  #4  on  it. 

If  you  go  back  to  take  one  ball  out,  you  are  going  to  get 
the  #4  ball.  And  if  you  prefer  to  use  the  #7  ball,  you  are 
going  to  have  to  take  out  the  #4  and  #2  tennis  balls  back 
out  before  you  can  take  out  the  #7  tennis  ball.  This  is 
exactly  how  the  parameter  stack  works. 
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Back  to  how  FORTH  words  communicate  by  passing  data  or  parameters.  Some  words 
need  data  on  the  stack  to  perform  their  specilied  actions.  During  execution  these  words 
will  take  data  off  of  the  parameter  stack.  Other  words  leave  results  on  the  stack  after  they 
have  completed  execution  so  that  other  words  may  use  the  results.  Some  words  take 
parameters  from  the  stack  AND  leave  results  on  the  stack  while  other  words  may  not  affect 
the  contents  of  the  parameter  stack  at  all.  To  aid  the  programmer,  all  FORTH  words  listed 
in  the  glossary  use  'Stack  Notation'  to  indicate  how  the  particular  word  will  affect  the  contents 
of  the  parameter  stack.  The  concept  of  'stack  notation'  is  explained  in  the  FORTH  Topics 
section. 

EXAMPLE  4:  Placing  numbers  on  the  FORTH  parameter  stack. 

To  put  a  number  on  the  FORTH  parameter  stack  you  simply 
type  the  number  (or  several  numbers  separated  by  spaces) 
followed  by  a  carriage  return.  The  stack  depth  indicator,  the 
‘<n>'  which  follows  the  'ok'  prompt  will  always  tell  you  how  many 
numbers  are  currently  on  the  parameter  stack: 

35  <cr>ok<1>  ( put  1  number  on  the  stack ) 

3  -4  <cr>ok  <3>  ( put  2  more  numbers  on  the  stack ) 

( there  are  now  3  numbers  on  the  stack ) 

The  stack  depth  indicator  is  also  an  indicator  of  what  number  base 
is  cun-ently  being  used  fdr  all  numeric  I/O.  A  '$'  in  the  stack 
depth  indicator  indicates  that  the  current  base  is  hexadecimal: 

HEX  <cr>  ok  <S3>  ( change  the  number  base  to  hexadecimal ) 

E  <cr>  ok  <$4>  ( put  another  number  on  the  stack ) 

EXAMPLE  5:  Displaying  the  numbers  on  the  stack. 

One  way  to  display  a  number  on  the  stack  is  to  use  the  FORTH 
word ("dor).  will  take  the  top  number  off  the  stack  and 
display  it: 

.  <cr>  E  ok  <$3>  ( take  the  top  number  off  the  stack  and  display  it ) 

The  FORTH  word  '.S'  ("dot-S")  will  produce  a  non-destaictive 
display  of  the  numbers  on  the  stack  (i.e.  you  donl  have  to  take 
the  numbers  off  the  stack  to  see  them): 

.S  <cr> 

23  3  -4  <-  Top 
ok<$3> 

Notice  that  the  stack  depth  indicator  shows  that  our  three  numbers 
are  still  on  the  stack.  Since  we  are  in  hexadecimal  base  our  decimal 
35  is  displayed  as  a  hexadecimal  23. 
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An  example  of  a  FORTH  word  that  takes  data  off  of  the  stack  and  also  leaves  a  result 
on  the  stack  is  the  math  operator  This  FORTH  word,  called  “plus",  takes  2  numbers 
from  the  stack,  adds  them,  and  then  puts  the  result  on  the  stack; 

EXAMPLE  6;  Stack  arithmetic. 

34  66  4-  •  <cr>  100  ok  <0>  ( Put  2  numlMrs  on  the  stack,  add  tham 

togathar  and  than  display  tha  rasuK) 

3  50  70  •  *  .  <cr>  -60  ok  <0> 

The  second  example  is  a  little  more  complicated.  First  we  put 
three  numbers  on  the  stack  then,  going  left  to  right,  we  replaced 
the  top  two  numbers  on  the  stack  with  a  subtraction  result 
(50  -  70  -  -20)  and  then  replaced  the  remaining  two  numbers 
(a  3  and  a  -20  at  this  point)  with  the  result  of  a  multiplication. 

Then  the  result,  a  -60.  was  taken  from  the  stack  and  displayed. 

This  method  of  arithmetic  calculation  is  Reverse  Polish  Notation  (or  RPN)  and  is 
commonly  found  on  HP  calculators. 

A  Special  Note  About  the  MACH  2  Stack 

MACH  2  is  based  upon  the  FORTH-83  standard  and  the  stacks  used  in  MACH  2 
are  32-bits  wide.  Most  FORTH's.  both  79  and  83  versions  are  16-bit  FORTH’s.  That  is. 
their  stacks  are  1 6-bits  wide  and  the  word  @  (see  the  @  glossary  entry)  would  return 
only  1 6-bits  of  data.  In  MACH  2  a  returns  32-bits  of  data,  a  W@  returns  1 6-bits  of 
data,  and  a  C@  returns  8-bits  of  data 

FORTH  Is  a  Structured  Language 

In  any  kind  of  a  program,  different  actions  are  taken  depending  on  external  input, 
whether  this  input  conies  from  a  user  at  the  keyboarct,  or  from  a  photodiode  sensor 
attached  to  an  input  port  of  the  computer.  In  order  to  determine  which  actions  to  take, 
decisions  have  to  be  made. 

In  FORTH  there  exist  standard  control  structures  that  control  the  flow  of  a  program 
depending  on  the  decision  made.  These  control  structures  have  the  same  inherent 
structure  at  any  level  of  a  program.  This  is  the  basis  of  a  staictured  language. 

EXAMPLE  7:  Using  the  IF...ELSE...THEN  program  control  structure. 
In  the  following  example  a  word  is  defined  that  looks  to  see  if  a 
number  on  the  stack  is  a  1  or  a  0.  IF  it  is  a  1,  it  prints  an  asterisk 
(42  EMIT),  ELSE  it  prints  a  plus  sign  (43  EMIT): 
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:  PLOT  (  n  ■  ) 

IF 

42  EMIT 
ELSE 

43  EMIT 
THEN  ; 

1  PLOT  <cr>  *  ok  <0> 
0  PLOT  <cr>  +  ok  <0> 


There  are  only  8  basic  control  structures  that  you  will  ever  need  when  writing  any 
software.  These  control  structures  are  the  following; 


1)  IF...THEN 

2)  IF...ELSE...THEN 

3)  BEGIN...UNTIL 

4)  BEGIN...WHILE...REPEAT 

5)  BEGIN...AGAIN 

6)  DO.. .LOOP 

7)  DO...+LOOP 

8)  CASE...OF..ENDOF...ENDCASE 


More  information  about  these  program  control  structures  may  be  found  on  the 
corresponding  pages  in  the  glossary  section. 
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A  QUICK  INTRODUCTION  TO  MACH  2 

Now  that  you  have  mastered  the  basics  of  FORTH  you  are  ready  to  take  a  quick  tour 
of  MACH  2's  features.  This  is  not  intended  to  be  a  complete  MACH  2  tutorial  but  rather 
a  demonstration  of  the  use  of  the  major  MACH  2  features.  Refer  to  the  table  of  contents 
or  the  index  to  find  a  more  complete  description  of  any  particular  feature. 

Checking  Your  Memory  Availability 

There  are  three  memory  areas  which  are  important  to  MACH  2  and  your  program:  the 
code  space  (where  your  program  code  will  be  located),  the  names  space  (where  the 
FORTH  headers  for  your  code  will  be  located),  and  the  variable  space  (where  your 
program  variables  will  be  located).  The  FORTTH  word  ‘TFREE’  will  tell  you  how  much 
space  is  currently  available  in  each  of  these  five  areas: 


7FREE 

<cr> 

Code  : 

32768 

Va/s 

13390 

Name  : 

16384 

ok<0> 

The  results  of  ?FREE  are  system  dependent,  the  numbers  you  see  will  probably  be 
different  than  those  above. 

Using  Local  Variables 

In  the  next  definition  we  will  make  use  of  MACH  2*8  local  variables.  Local  variables  help 
eliminate  confusing  stack  manipulations  by  allowing  you  to  assign  names  to  values  on 
the  stacx.  Later,  when  you  need  the  value,  you  execute  its  name  to  put  the  value  on 
top  of  the  stack.  The  word  #TIMES  will  keep  a  count  of  how  many  times  a  BEGIN...UNTIL 
loop  was  executed  before  the  loop  was  terminated  by  a  keypress.  #TtMES  will  keep 
the  running  count  in  a  local  variable: 

:  STIMES  {  I  total  •  } 

0  •>  total  \ 

BEGIN  \ 

1  ■*'>  total  ^ 

7TERMINAL 
UNTIL 

total  .  ;  <cr>ok  <0>  \ 


zeroing  the  local  variable 
start  of  the  loop 

increment  the  count  each  time  through  the  loop 
has  a  key  been  pressed  ? 


display  the  total 
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Local  variables  and  named  input  parameters  (this  definition  does  not  use  named  input 
parameters)  are  defined  between  the  left  and  right  curly  brackets.  #TIMES  uses  one  local 
variable  named  lotal'  during  its  execution.  Execute  #TIMES  to  see  how  it  works: 

#TIMES  <cr>  ok  <0> 

( wait  a  bit... } 

<C  r>  221 2  ok  <0>  ^  prassing  any  key  will  stop  execution  of  tTIMES 

\  the  number  of  loops  executed  will  be  displayed 

Executing  OS-9  Utility  Commands 

The  MACH2  S'  command  allows  you  to  interactively  execute  OS-9  utility  commands  from 
within  MACH2: 

$  OIR 

Directory  of.  01:14:11 

CMOS  OSSBoot  SYS  keya 

read  sieve  startup 

ok  <0> 

Since  MACH2  is  a  re-entrant  module,  you  can  use  *$*  to  temporarily  suspend  this  version 
of  MACH2  and  enter  another  version: 

$  MACH2  <cr>  \  Use  T  to  re-enter  MACH2 

Palo  Alto  Shipping  Company  \  Now  we're  in... 

BYE  <cr>  \  Use  BYE  to  exit  the  second  version, 

ok  <0>  \  ...and  now  we've  returned  to  the  original  MACH2 

Note  that  this  second  version  of  MACH2  starts  up  much  faster  than  the  original  version 
since  the  MACH2  module  has  already  been  loaded  into  memory. 
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Creating  a  TURNKEY  Executable  Module 

In  MACH2  it  is  very  simple  to  create  stand-alone,  executable  OS-9  modules. 

The  following  example  shows  how  TURNKEY  is  used  to  create  an  executable  module: 

:  NumberOne  (  •  ) 

5  0  DO 

This  Is  my  first  MACH2/OS-9  executable  module  !! 
CR 

LOOP  BYE  ;  <cr»  ok  <0> 

TURNKEY  NumberOne  First  <cr> 

At  this  point  MACH2  will  have  returned  you  to  the  OS-9  shell.  Type  'First'  to  execute 
your  module  (after  your  module  has  completed  execution,  re-enter  MACH2): 

$  First  <cr> 

This  is  my  first  MACH2/OS-9  executable  module !! 

This  is  my  first  MACH2/OS-9  executable  module  !! 

This  is  my  first  MACH2/OS-9  executable  module !! 

This  is  my  first  MACH2/OS-9  executable  module  !! 

This  is  my  first  MACH2/OS-9  executable  module !! 

S 

Floating  Point  Calculations 

MACH  2  lets  you  use  the  floating  point  routines  provided  by  Microware  for  OS-9. 

As  an  example  of  their  use,  let's  create  a  FORTH  word  which  calculates  the  area  of  the 
circle  whose  radius  is  passed  to  it  on  the  floating  point  stack.  We  will  use  the  formula: 
arBa-KR*2: 

ALSO  MATH  <cr>  ok  <0> 

FP  <cr>  ok  <0>  [0]  (  Change  to  floating  point  input  mode. 

Note  the  addition  of  a  floating  point 
stack  depth  indicator. ) 

:  CIrcleArea  (  fp-radlus  •  fp-area  ) 

F  0  U  P  ( Duplicate  the  input ) 

F  *  (  Square  the  input ) 

3.14  F*  ;  <cr>ok<0>[01  (  Multiply  by  a ) 

4.25  CIrcleArea  <cr>ok<0>[1}  ( Ask  for  area  of  circle  with  4.25  radius ) 

F.  <cr>  56.7163  ok  <0>  [0]  (  Display  the  floating  point  result ) 

INT  <cr>  Ok  <0>  ( Switch  back  to  integer  input  mode ) 
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Loading  and  Executing  Programs 


The  MACH2  word '  INCLUDE*  ‘  is  used  to  load  text  program  source  files.  INCLUDE*  is 
followed  by  one  space,  the  name  of  the  file  to  be  loaded,  and  a  trailing '  *  ’  (the  trailing  quote 
should  immediately  follow  the  file  name).  The  ‘sieve’  program  is  on  your  distribution  disk: 


INCLUDE"  Sieve"  <cr> 

Type  'sieve'  to  execute  this  benchmark  program 
ok  <0> 

sieve  <cr> 

4  Secs  54  Ticks  |  128  Hertz 

1899  primes  ok<0> 


EMPTY 

To  reclaim  all  of  your  code  space,  variable  space,  and  names  space  use  'EMPTY. 
EMPTY  will  remove  all  of  your  new  definitions  and  variables  from  the  dictionary. 

EMPTY  <cr> 
ok  <0> 


Using  the  Assembler 

The  MACH  2  assembler  is  always  available.  In  this  example  we  will  create  an  assembly 
language  definition  (a  'code'  definition)  which  will  add  i  to  the  number  on  top  of  the 
stack,  U  the  number  is  odd,  when  executed: 


CODE 

IncrOdd 

(  n1  ••  n2 ) 

MOVE.L 

(A5),00 

Move  number  into  data  register 

BIST 

«o.oo 

\ 

Check  for  odd  number 

BEQ.S 

\ 

Exit  if  number  is  even 

ADDQ.L 

i1.(A5) 

\ 

Add  1  to  odd  number 

RTS 

\ 

End  of  routine 

END-CODE  <cr>  ok  <0> 


The  important  thing  to  notice  in  this  example  is  that  MACH  2’s  assembler  is  a  standard, 
infix  assembler.  It  isnl  the  simplified  RPN  assembler  commonly  included  in  other  FORTH 
implementations.  We  think  this  makes  assembly  routines  written  in  MACH  2  much  more 
readable  and  supportable.  Let's  try  'IncrOdd': 

4  IncrOdd  .  <<r> 

ok  <0> 

9  IncrOdd  .  <tt> 
ok  <0> 
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Using  ths  Symbolic  Disassembler 

The  symbolic  disassembler  allows  you  to  look  at  how  your  definitions  were  compiled  into 
memory: 


IncrOdd  7  IL  <er>  ole  <0> 


IncrOdd 
055232: 
055234 : 
055238: 
05523A: 
05S23C: 
ok  <0> 


MOVE.L 

BTST 

BEQ.S 

ADDO.L 

RTS 


(A5) , 00 
#S0,00 

#S1. (A5) 


;  S5523C 


X* 


Using  the  MACH2  Debugger 

The  MACH2  debugger  allows  you  to  watch  your  code  in  action.  Because  OS-9  is  a 
multi-tasking  operating  system,  only  one  person  may  be  using  the  MACH2  module  when 
the  MACH2  debugger  is  being  used  (read  the  debugger  section  for  more  information). 
The  following  example  shows  how  our  'IncrOdd'  word  could  be  debugged  using  the 
MACH2  debugger  (you  enter  the  boldface  commands): 


DEBOG  IncrOdd  <cr>  ole  <0> 
S  IncrOdd  <cr> 


055232:  MOVE. 

L  (AS), DO 

\ 

this  is  tha  first  instruction 

PC:00055232 

SR; 

0310 

X 

1 

z 

■ 

■0  Z-0  V-0  C-0 

\ 

in  IncrOdd 

A0:00051154 

A4; 

00000000 

00: 

00055232 

D4:  00000008 

A1:000S11S2 

AS: 

OOOIFIES 

Dl: 

00000007 

05:  00000007 

A2:00000000 

A6: 

00021100 

02: 

00000003 

D6:  00000007 

A3:0001EA32 

A7: 

00020nE 

03: 

00000000 

05:  OOOIEAOA 

>  s  <cr> 

\ 

'S'  maans  singla-stap 

055234  BTST 

»$0,DO 

PC:00055234 

SR 

0310 

X»1  N- 

■0  2-0  V-0  C-0 

A0:00051154 

A4 

00000000 

00: 

00000005 

04:  00000008 

Al:00051152 

A5 

OOOIFIES 

01: 

00000007 

05:  00000007 

A2:00000000 

A6 

00021100 

02: 

00000003 

06:  00000007 

A3:0001EA32 

A7 

0002017E 

03: 

00000000 

05:  OOOIEAOA 

>SS  <cr> 

5 

<Top 

\ 

show  tha  contants  of 

\ 

tha  FORTH  param  stack 

>  G  <cr> 

\ 

Go  ahaad  with  tha 

ole  <1> 

\ 

rast  of  tha  word. 

<cr>6  ole  <0> 
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MACH  2  Forth  Topics 


MACH  2  IN  MEMORY 


There  are  three  memory  areas  of  interest  in  the  MACH  2  system.  These  are  the  code,  names, 
and  variable  areas  used  by  the  programmer. 


CODE  SPACE 

The  code  space  (dictionafy  space)  is  the  place  where  the  code  portion  of  your  definitions  is 
placed.  MACH  2  keeps  its  definition  headers  separate  from  the  definition  code.  The  headers 
(or  names)  for  a  definition  are  placed  in  the  names  space  (discussed  later).  Each  time  a 
definition  is  added,  the  pointer  to  the  next  available  code  space  location,  the  HERE  pointer, 
is  incremented  accordingly.  The  following  diagram  shows  how  the  addition  of  the  definition 
TEST  affects  the  HERE  pointer: 

:  TEST  DUP  SWAP  ROT  ;  <cr>  ok  <0> 


Higher  Memory 


Lower  Memory 


Remaining 
Code  Space 


Code  Space 
reserved  by  ALLOT 


JSR  ROT 
code  tor  SWAP 
code  for  OUP 


■  top  of  dictionary 
after  too  AUOT 


■  top  of  dictionary 
after  TEST 

■  top  of  dictionary 
before  TEST 

■  previous  definitions 


Code  (Dictionary)  Space 


Top  address  in 
your  code  space. 


HERE 


Base  address  of 
your  code  space. 


When  you  first  start  up  in  MACH  2,  the  HERE  pointer  will  be  pointing  at  the  base  address  of 
you  code  space.  Each  time  you  add  a  definition,  the  HERE  pointer  is  incremented  so  that 
it  is  always  left  pointing  at  the  next  available  spot  in  the  code  space.  ALLOT  is  a  word  you 
can  use  to  artificially  increment  the  HERE  pointer. 
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Using  ALLOT  to  Allocate  Dictionary  Space 

The  word  ALLOT  may  be  used  to  explicitly  increment  the  HERE  pointer  by  a  specified 
number  of  bytes.  ALLOT  is  commonly  used  with  CREATE  to  reserve  space  in  the 
dictionary  for  tables  of  static  data  such  as  trigonometric  tables; 

CREATE  Sines  <Cr>  ok  <0>  (  create  a  dictionary  header  for  Sines  ) 

100  ALLOT  <cr>  ok  <0>  ( Reserve  100  bytes  in  the  coda  space 

for  the  sine  table  data. ) 

In  this  example,  the  defining  word  CREATE  is  used  to  create  the  dictionary  header  for  a 
table  of  sine  information.  When  the  word  SINES  is  later  executed  it  will  push  the  address 
of  the  first  byte  of  the  sines  table  on  the  stack.  This  allows  the  data  in  the  table  to  be 
accessed.  Since  the  headers  are  stored  in  a  different  location,  the  execution  of  CREATE 
did  not  affect  the  above  diagram.  ALLOT  is  used  to  allocate  the  necessary  amount  of  space 
in  the  dictionary  for  the  sine  data.  In  the  diagram,  it  can  be  seen  that  ALLOT  moved  the 
HERE  pointer  up  by  100  bytes.  These  bytes  have  not  been  initialized  to  any  value.  Now 
the  data  may  be  stored  in  the  table  without  fear  of  it  being  ovenwritten  when  the  next 
definition  is  added. 

To  find  the  address  of  the  next  available  spot  in  the  code  space  execute  the  word  HERE; 

HERE  .  <cr>  54102  ok  <$0> 

Size  of  the  Code  Space 

Unless  otherwise  specified.  MACH2  will  ask  OS-9  for  32K  of  memory  for  the  user  code 
space  upon  start  up.  If  you  wish  to  override  the  default  code  space  size  pass  your  desired 
code  space  size  to  MACH2  when  you  start  MACH2  up.  For  example,  to  set  the  user  code 
space  to  size  to  16K  bytes; 

$  MACH2  -$8000 

The  names  space  is  always  set  to  1/2  the  size  of  the  code  space. 


THE  NAMES  SPACE 

The  names  space  is  where  the  header  portion  of  a  definition  is  stored.  The  header 
for  a  definition  contains  information  such  as  the  definition  name,  the  length  of  the 
definition  name,  a  pointer  to  the  next  definition  (each  time  a  definition  is  added  in  a 
FORTH  system  it  is  linked  into  a  linked  list  of  all  previously  defined  definitions),  and  a 
pointer  to  the  actual  code  for  the  definition  (located  in  the  code  space).  The  exact 
format  of  a  MACH  2  dictionary  header  is  given  in  the  appendix. 
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MACH  2  keeps  the  headers  separate  from  the  code  so  that  they  may  be  discarded  by 
TURNKEY  when  it  creates  your  final  application.  The  header  information  may  be  discarded 
since  it  is  only  used  during  compilation;  header  information  is  not  required  for  program 
execution  and  would  only  take  up  valuable  disk  space  if  it  were  not  discarded. 

The  diagram  below  shows  the  names  space  which  corresponds  to  the  code  space  shown 
in  the  previous  diagram: 


A  pointer  called  the  NP  (name  pointer)  is  used  to  keep  track  of  the  remaining  names  space. 
Each  time  a  definition  is  added,  the  new  header  information  is  placed  into  the  names  space 
starting  at  the  address  pointed  to  by  the  NP.  The  NP  always  points  to  the  next  available 
spot  in  the  names  space.  After  the  header  is  in  place,  the  NP  will  be  incremented  accordingly. 
To  get  the  address  of  the  next  available  spot  in  the  names  space  you  can  execute  the  word 
NP  (to  put  the  address  of  the  NP  system  variable  on  the  stack)  and  then  fetch'  its  contents; 

NP  <3>  .  <cr>  201 AE  ok  <$0> 

Size  of  the  Names  Space 

When  you  start  up  in  MACH  2  you  are  given  an  empty  16K  space  for  your  program  names. 

You  can  use  ?FREE  at  any  time  to  check  the  amount  of  room  left  in  your  current  names 
space. 
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THE  VARIABLE  SPACE 

The  variable  space  is  where  a  program's  variable  data  (data  which  will  be  altered  during 
the  running  of  the  program)  should  be  stored.  Since  MACH  2  keeps  the  variable  and 
dictionary  space  separate,  the  oniy  information  about  the  variable  space  which  needs  to 
be  saved  on  disk  as  part  of  a  program  is  the  size  of  the  variable  space. 

Location  of  the  Variable  Space 

The  variable  space  is  located  relative  to  the  address  contained  in  the  A6  register  of  the 
CPU.  The  data  area  used  for  the  variable  space  is  dynamically  allocated  by  OS-9  when  a 
module  is  loaded.  As  the  diagram  below  shows.  MACH2  asks  OS-9  for  a  16K  data  area. 
4K  of  the  data  area  is  used  for  MACH2  jump  tables.  The  remaining  12K  is  used  for  the 
variable  area.  The  address  in  the  A6  register  is  always  located  32K  bytes  above  the 
base  address  of  the  data  area. 


t 


t 


4K 


Higher 

Memory 


Remaining, 

unused 

variable 

space 


Variable  Space 
reserved  by  VALLOT 


top  of  variable  space 
after; 

400  VALLOT 

top  of  variable  .  e 
before: 

VARIABLE  ARRAY 

space  allocated  for  the 
contents  of  previously 
defined  variables 


Lower 

Memory 


Jump  Table  Entries 
for  MACH2  Words 


Top  address 
of  your  variable 
space. 


VP 


Base  address 
of  your  variable 
space. 
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size  of  tho  Varlablo  Spaca 

Initially,  you  will  be  given  12K  bytes  of  variable  space.  To  adjust  the  size  of  the  variable 
space  use  the  'MACHVarSpace'  utility  found  in  the  ‘CMOS'  directory.  Do  not  use  this 
utility  from  within  MACH2  I  This  utility  will  modify  MACH2's  module  header  information 
to  accommodate  your  new  desired  variable  space  size.  The  next  time  you  enter  MACH  2 
your  requested  amount  of  variable  space  will  be  set  aside.  Note  that  there  is  a  64K 
limit  on  the  size  of  a  module's  'tocal*  data  area.  If  you  request  a  variable  space  larger  than 
60K  (4K  is  always  taken  by  Mach2)  the  compiler  will  use  longer  addressing  modes  to 
access  data  in  the  remote  data  areas.  ?FREE  may  be  used  to  check  the  amount  of  free 
variable  space  remaining. 

Creating  New  variables 

The  word  VARIABLE  is  used  to  create  new.  named  variables.  VARIABLE  will  create  a 
dictionary  entry  for  the  variable  using  the  specified  name. 

VARIABLE  Array  <cr>ok  <$0> 

To  get  the  address  of  the  variable  location  in  the  variable  space  you  execute  the  name  of 
the  variable: 

Array  .  <cr>  67804  ok  <$0> 

When  VARIABLE  creates  the  dictionary  entry  for  the  variable  the  dictionary  header  goes 
in  the  names  space,  the  code  responsible  for  calculating  the  address  of  the  variable  when 
its  name  is  executed  goes  in  the  code  space,  and  4  bytes  of  storage  space  for  the  new 
variable  are  automatically  reserved  in  the  variable  space.  Initializing  the  contents  of  these 
4  storage  bytes  is  the  responsibility  of  the  programmer. 

Storing  and  Retrieving  Data  To  and  From  Varlablee 

The  word  T  ('store')  is  used  to  place  4  bytes  of  data  at  a  specific  address  and  the  word 
(letch')  is  used  to  retrieve  4  bytes  of  data  from  a  specified  address. 

3F  Array  t  <cr>  ok  <$0> 

Array  <9  •  <cr>  3F  <$0> 

'W!' ,  'W@' ,  'Cr ,  and  'C@'  are  used  to  store  and  retrieve  2  and  l  byte  lengths  of  data. 
Using  VALLOT  to  Allocate  Variable  Space 

If  you  wish  to  create  a  variable  which  has  more  than  4  bytes  of  storage  (if  you  want  to 
store  an  array  of  data  for  example)  use  VALLOT  immediately  after  you  have  created  the 
variable  with  VARIABLE: 

VARIABLE  Array  <cr>Ok  <$0>  ( Create  the  variabi* ) 

400  VALLOT  <cr>ok  <$0>  (  Allocate  400  extra  storage  bytes 

for  the  contents  of  the  previously 
defined  variable. ) 
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A  'pointer'  called  the  VP  is  used  to  mark  the  next  available  spot  in  the  variable  space. 
Note  that  the  VP  works  VERY  differently  than  the  HERE  pointer  or  the  NP.  VP  is  the 
name  of  a  MACH  2  system  variable  which  holds  a  negative  offset  from  the  address  in  the 
A6  register  to  the  next  available  spot  in  the  variable  space. 

VP  ®  .  <cr>  -35B4  ok<$0> 

VALLOT  will  decrement  the  VP  pointer  by  a  specified  number  of  bytes.  This  has  the 
effect  of  reserving  storage  locations  in  the  variable  space. 


7FREE  •  A  MACH  2  MEMORY  UTILITY  WORD 

?FREE  is  a  utility  word  which  tells  you  the  amount  of  free  space  currently  available  in  your 
code,  names,  and  variable  areas. 


7FREE 

<cr> 

Code  : 

32768 

Vats 

10000 

Name  : 

16372 

ok  <0> 

The  sizes  of  certain  memory  areas  are  system  dependent  so  the  numbers  7FREE 
returns  on  your  system  will  probably  be  quite  different  than  those  returned  in  the  above 
example. 
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VOCABULARIES 

In  FORTH,  a  vocabulary  is  a  linked  list  of  definitions.  Vocabularies  are  used  to  separate 
the  definitions  into  meaningful  groupings.  The  FORTH  dictionary  is  comprised  of 
several  vocabularies. 

The  MACH  2  Vocabularies 

The  initial  MACH  2  dictionary  consists  of  4  vocabularies.  These  vocabularies  are  : 

FORTH  :AII  of  the  standard  (FORTH-83  and  others)  words. 

OS-9  >^11  OS-9-specific  words. 

ASSEMBLER  :Ali  words  used  with  the  Assembler/  Disassembler. 

MATH  :AII  of  the  floating  point  words. 

Specifying  a  Search  Order 

When  a  FORTH  word  is  executed  immediately  (by  typing  its  name  at  the  keyboard) 
or  when  it  is  compiled  (by  using  it  within  a  colon  definition)  the  dictionary  must  be 
searched  to  find  out  what  the  word  should  do.  Since  the  dictionary  is  broken  up  into 
at  least  four  vocabularies  (the  four  mentioned  above).  MACH  2  must  be  told  which 
vocabularies  it  should  search  through  and  in  which  order  it  should  search.  The  two 
FORTH  words  ONLY  and  ALSO  are  used  to  specify  a  search  order  for  MACH  2. 

ONLY 

ONLY,  as  might  be  expected,  is  used  to  specify  that  ONLY  one  vocabulary  should  be 
searched  when  MACH  2  is  looking  up  a  word.  The  name  of  that  one  vocabulary  should 
follow  ONLY : 

ONLY  FORTH  <er>ok  <0> 

The  use  of  ONLY  above  tells  MACH  2  that  it  should  only  search  through  the  FORTH 
vocabulary's  list  of  words.  If  the  word  hasn't  been  found  by  the  time  the  end  of  the 
vocabulary  list  is  reached.  MACH  2  will  display  a  '<name>  T  error  message. 

ALSO 

ALSO  is  used  to  specify  that  another  vocabulary  should  ALSO  be  searched  by  MACH  2; 
ALSO  OS>9  <cr>ok  <0> 

If  this  were  used  after  ONLY  FORTH  above,  MACH  2  would  know  that  it  should  search 
through  the  OS-9  vocabulary  list  first,  and  then,  if  it  reached  the  bottom  of  the  OS-9  list 
without  finding  the  word,  it  should  start  searching  through  the  FORTH  vocabulary  list. 
ALSO  may  be  used  to  specify  up  to  5  additional  vocabularies  to  be  searched.  Seven 
vocabularies  may  be  included  in  the  search  order  at  once.  ALSO  <name>  will  cause 
the  <name>  vocabulary  to  be  searched  first. 
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Adding  Oafinitlons  to  a  Vocabulary 

The  word  DEFINITIONS  is  used  to  specify  to  which  vocabulary  list  new  definitions 
should  be  appended  : 

DEFINITIONS  <cr>  ok  <0> 

DEFINITIONS  will  make  the  vocabulary  which  is  currently  being  searched  first  (the 
'transient'  vocabulary)  the  vocabulary  to  which  all  subsequent  definitions  will  be  added. 

In  this  case,  since  OS-9  has  just  been  made  the  transient  vocabulary  by  ALSO,  the  OS-9 
vocabulary  would  now  be  the  vocabulary  to  which  definitions  will  be  appended. 

After, 

ONLY  FORTH  <cr>  ok  <0> 

ALSO  OS*9  <cr>ok  <0> 


the  search  order  would  be 


New 

Definitions 


EMPTY  gets  rid  of 
everything  above 
this  pratscOng  lint. 


f 

Protected 

Words 


FORGET  gets  rid  of 
everything  defined 
after  a  certain  point 
in  time,  no  matter 
which  vocabulary 
the  words  are  in. 


MA1H 

Vocabulary 


FORTH 

Vocabulary 

Words  used  to  modif)^ 
the  search  order 


When  the  search  order 
is  SEALed,  the  link  to 
the  words  used  to  modify 
the  search  order  is 
snipped.  From  that 
point  on  the  application 
may  only  use  words 
found  in  the  frozen' 
search  order. 
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onOER  and  WORDS  -  Two  Search  Order  Utilities 

The  word  ORDER  will  print  out  information  atMut  the  current  search  order.  It  will  show 
which  vocabularies  are  being  searched,  in  which  order  they  are  being  searched,  and 
to  which  vocabulary  definitions  are  currently  being  appended.  Upon  system  start-up 
the  vocabulary  structure  will  be  set  as  follows: 

ORDER  <cr> 

Search  Order  ->  FORTH 
New  Definitions  ->  FORTH 
ok  <0> 

The  word  WORDS  will  display  a  listing  of  all  words  in  the  transient  vocabulary. 

Application  Vocabularies 

Certain  applications  may  require  that  a  limited  set  of  application  words  are  available 
for  execution  from  within  the  running  application.  This  type  of  application  may  NOT 
be  sold  or  distributed  unless  special  arrangements  have  been  made  with  the 
Pak)  Alto  Shipping  Company  in  advance. 

The  word  SEAL  is  available  for  this  purpose.  SEAL  will  freeze  the  current  search  order 
and  will  also  remove  the  user's  ability  to  change  the  search  order  by  cutting  the  link 
to  the  set  of  search  order  modification  words.  As  the  diagram  on  the  previous  page 
indicates,  the  set  of  search  order  modification  words  is  usually  searched  at  the  end  of 
every  dictionary  search. 

Creating  Vocabularies 

New  vocabularies  may  be  created  with  the  use  of  the  defining  word  VOCABULARY. 
MACH  2  may  have  up  to  15  total  vocabularies.  Since  four  vocabularies  already  exist, 
users  may  define  up  to  1 1  of  their  own.  VOCABULARY  is  used  as  follows ; 

VOCABULARY  MINE  <cr>ok  <0> 

Definitions  may  be  added  to  the  new  vocabulary  by  using  the  words  ONLY,  ALSO, 
and  DEFINITIONS  as  described  above. 

Removing  Words  from  the  Dictionary 

The  word  FORGET  may  be  used  to  remove  a  definition,  and  all  definitions  added 
after  that  definition,  from  the  dictionary  : 

FORGET  <deflnitlon^me>  <cr>ok  <o> 

The  word  EMPTY  will  remove  all  definitions  which  have  been  added  to  the  dictionary 
See  the  previous  diagram  for  an  illustration  of  the  effect  of  these  two  words. 
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LOCAL  VARIABLES  AND  NAMED  INPUT  PARAMETERS 

Local  variables  are  those  whose  contents  are  valid  only  inside  the  definition  in  which 
they  are  used.  Because  they  are  local  variables,  as  opposed  to  global  variables,  they  will 
support  re-entrant  code  when  writing  recursive  or  multi-tasking  programs.  Local 
variables  may  have  the  same  names  in  different  definitions  without  conflicting. 

Named  input  parameters,  which  are  simply  initialized  local  variables,  are  used  to  give 
names  to  the  input  parameters  on  the  stack.  This  greatly  simplifies  routines  which 
would  otherwise  require  complex  stack  manipulation. 

The  following  comparison  shows  that  the  use  of  local  variables  and  named  input 
parameters  also  greatly  increases  the  readability  of  FORTH  words  which  perform  stack 
manipulations. 

Contrasting  Local  Variables  with  Conventional  FORTH  Stack  Manipulation 

QUADRATIC  EQUATION 
-b  ±  >/b^  -  4ac 

X  »  I™™  '■■■■  ■ 

2a 


Local  Variables 

:  Quadratic  (  a  b  c  |  radical  2A  - 
b  b  * 

4  a  •  c  *  - 
SORT  •>  radical 

a  2‘  •>  2A 

b  NEGATE  radical  •  2A  / 
b  NEGATE  radical  *  2A  I  ; 


Conventional  FORTH  Stack  Manipulation 

:  Quadratic  (  a  b  c  •  xl  x2  ) 

2  PICK  *  4  • 

OVER  OUP  *  SWAP  • 
SORT 

SWAP  NEGATE  20UP  * 

3  PICK  2*  /  >R 
SWAP  -  SWAP  2*  I 
R>  ; 


xl  ara  used  to  sat  up  local  variabla  list  ) 

(  -  4ac  ) 

{ taka  squara  root  of  numbar  undar  radical ) 

(  2a  ) 

( calculata  tha  >  and  -  rasults ... ) 

( and  iaava  both  on  stack ) 

(  Paranthasas  ara  usad  for  commants  ) 

(  4ac  ) 

(  b^  •  4ac  ) 

( taka  squara  root  of  numbar  undar  radical ) 

{ calculata  tha  *  root ) 

( dh/ida  by  2a  and  sava  on  loop  stack ) 

( calculata  tha  -  root,  Iaava  on  stack ) 

( ratriava  *  root  and  Iaava  on  stack ) 


Both  of  these  definitions  will  return  the  roots  on  the  stack,  however  the  example  which 
uses  named  input  parameters  and  local  variables  is  MUCH  easier  to  read  and  to  write. 
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Specifying  Local  Variables  In  the  Local  Variable  List 

The  local  variable  list  is  contained  within  the  *{*  and  the  *}*.  In  this  exarrple  there  are 
four  local  variables,  with  two  of  them,  *x*  and  y,  specified  as  named  input  parameters. 
Any  names  before  the  *1*  are  considered  named  input  parameters  and  require 
corresponding  data  on  the  stack  prior  to  execution  of  the  definition.  Any  names  after  the 
1’  and  before  the  are  treated  as  local  variables.  The  contents  of  local  variables 
are  undefined  until  written  to  by  using  the  operator.  Information  after  the and 
before  the is  a  comment  used  for  stack  notation. 


SKEWED 

{  xy 

1  XI  yl 

X 

•> 

XI 

y 

Xl 

xy- 

•> 

yl 

xl  yl 

• 

1 

-  result  } 


Named  input  Parameters 
are  initialized  from  values 
on  the  parameter  stack. 


--  result } 


XX* 

yy*  + 


The  number  on  top  of  the  stack  will 
go  to  the  rightmost  named  input 
parameter  in  the  list. 


The  *•>'  ,  'A'  ,  and  ‘4>*  Operators 

In  the  above  example,  the  (pronounced  ’save-to*)  operator  is  used  to  store  the  number 
on  top  of  the  parameter  stack,  into  the  specified  local  variable.  The  '''*  (pronounced  tiat’) 
operator  is  used  to  obtain  the  address  of  a  local  variable  (see  the  *  glossary  page  for  an 
example  of  its  use.  The  '*>'  (pronounced  'phjs-to'  operator  is  used  to  add  the  number  on 
top  of  the  parameter  stack  to  the  ^Mcified  local  variable. 


Speed  Considerations 


The  set-up  and  initialization  of  local  variables  occurs  at  executton  time.  This  does  not 
mean,  however,  that  a  word  which  uses  local  variables  will  take  longer  to  execute.  For 
example,  the  local  variable  square  root  example  on  the  previous  page  executes  just  as  fast 
as  the  non-local  variable  example.  In  most  cases,  the  decrease  in  execution  time  due  to 
program  simplifktation  gained  by  the  use  of  local  variables  will  completely  offset  the 
extra  execution  time  required  to  set  the  local  variables  up. 

Recursive  Definitions  Using  Named  input  Parameters 

Local  variables  are  especially  well-suited  to  recursive  definitions  (see  the  Fibonacci  example 
on  the  demonstration  disk).  Since  the  local  variables  are  implemented  with  a  method  called 
stack  framing,  the  amount  of  recursion  that  can  occur  in  a  recursive  definition  is  limited  only 
by  the  available  subroutine  stack  space. 
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STACK  NOTATION 

stack  notation  is  a  very  critical  component  of  FORTH  programs.  Stack  notatton  is 
used  to  describe  tww  execution  of  a  FORTH  word  affects  the  contents  of  the 
parameter  stack.  Here  is  an  example  : 

;  ©CHAR  {  a  n  -  c  )  +  C@  ; 

In  the  above  example,  the  stack  notation  correspondir^g  to  the  definition  ©CHAR 
is  in  bold  typeface.  The  letters  to  the  left  of  the specify  the  input  parameters 
©CHAR  expects  to  find  on  the  parameter  stack.  The  letters  to  the  right  of  the 
specify  the  output  parameters  ©CHAR  will  return  on  the  stack.  By  including  this 
special  FORTH  comment  immediately  after  each  new  word,  the  behavior  of  a  FORTH 
word  can  be  assertained  at  a  glance. 

General  Format  of  Stack  Notation 

The  following  examples  show  the  general  format  used  for  stack  notation  ; 

{  INPUTS  -  OUTPUTS  ) 

EX:{n1r2-rt3)  (c)  (-a)  (nln2-f) 

If  a  word  does  not  affect  the  contents  of  the  parameter  stack,  stack  notation  may  be 
omitted.  If  a  word  has  only  an  input  and  no  output,  the  dash  is  sometimes  omitted. 

Characters  Used  In  Stack  Notation 

Four  different  lowercase  characters  are  commonly  used  inside  of  a  stack  notation 
comment : 

a  •  address 
n  •  number 
c  -  ssdi  character 
t  •  boolean  flag 

Since  MACH  2  is  a  32-bil  implementation  of  FORTH  (i.e.  its  stacks  are  32-bits  wide),  all 
addresses  (a),  numbers  (n),  characters  (c),  and  flags  (f)  will  be  32-bit  values  while  on  the 
stack. 

Stack  Notation  with  Named  Input  Parameters 

When  using  Named  Input  Parameters,  the  local  variable  list  should  be  used  to  indicate 
the  stack  notation  for  the  word.  The  general  format  used  for  a  local  variable  list  is: 

I  INPUTS  I  LOCAL  --  OUTPUTS  ) 

EX;  {  X  y  I  -  -  resul )  {xy|)  (xy)  {|uv  -  double  )  {  |  u  v  ) 

The  OUTPUTS  field,  which  follows  the  dashes,  is  treated  as  a  comment  and  does  not 
affect  execution  of  the  word.  The  OUTPUTS  field  in  a  local  variable  list  should  be  used 
to  indicate  which  values,  if  any,  the  word  leaves  on  the  parameter  stack. 
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FLOATING  POINT 


MACH  2's  floating  point  operators  use  the  MATH  module  provided  by  Microware. 

This  module  contains  routines  for  basic  floating  poirrf  math,  extended  integer  math, 
type  conversion,  and  transcendental  and  extended  mathematical  functions.  All  of  the 
floating  point  words  and  operators  that  make  up  the  MACH  2  floating  point  package  are 
found  in  the  MATH  vocabulary. 

Precision 

The  routines  in  the  math  module  support  the  following  data  formats: 

Integer  types:  unsigned  32-bit  unsigned  integers 

long  32-bit  signed  integers 

floating  point:  float  32-bit  floating  point  numbers 

double  64-bit  double  precision  floating  point  numbers 

The  floating  point  math  routines  use  formats  based  on  the  proposed  IEEE  standard  for 
compatibility  with  floating  point  math  hardware.  32-bit  floating  point  operands  are  internally 
converted  to  64-bit  double  precision  before  computation  and  converted  back  to  32  bits 
after  as  required  by  the  IEEE  and  C  language  standards.  (Therefore,  the  float  type  has  no 
speed  advantage  over  the  double  type.) 

The  precision  of  the  following  transcendental  and  extended  math  routines  is  set  using 
the  MACH2  word  PRECISION.  The  precision  may  be  set  from  1  bit(lE-001)fo  I4bits 
(IE-014)  by  passing  a  number  from  1  •  14  to  PRECISION. 

FCOS  FSQRT 
FATAN  FSIN 

Flog  FTAN 

Ffn  Fy-'x 

The  Floating  Point  Stack 

An  independent  stack,  called  the  floating  point  (FP)  stack,  is  used  for  all  floating  point 
operations.  This  stack  differs  slightly  from  the  parameter  stack  in  that  it  has  room  for  a 
maximum  of  20  FP  numbers  only.  Numbers  on  the  FP  stack  can  be  manipulated  with  standard 
stack  operators  such  as  FROT.  FOVER,  FSWAP.  FDROP.  FDUP,  etc.  Floating  point 
numbers  can  also  be  converted  to  integer  and  transferred  to  the  parameter  stack  with  the 
F>l  operator.  The  l>F  operator  performs  the  reverse  function. 
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Floating  Point  Mod* 

For  floating  point  numbers  to  be  recognized  as  such,  you  have  to  be  in  the  FP  mode. 

The  FP  nxKle  is  invoked  by  executing  "FP”  from  the  MATH  vocabulary.  Once  you  are  in  the 
FP  mode,  any  numbers  that  are  entered  with  a  decimal  or  an  exponent  are  put  on  the  floating 
point  stack.  Examples  of  valid  floating  point  numbers  are  shown  below: 

•1.65e-05  9119. 

0.0045  345.88E>67 

Note  that  in  the  FP  mode  any  integers  (numbers  with  no  decimal  point)  that  are  entered  are 
still  put  on  the  parameter  sta<^.  While  in  the  FP  mods  you  will  notice  a  number  in  square 
brackets  after  every  *ok*.  This  is  the  floating  poim  stack  depth  indicator  and  works  the  same 
way  as  the  parameter  stack  depth  indicator. 

The  FP  mode  is  exited  by  executing  “INT".  This  puts  MACH  2  back  in  the  integer  mode  and 
any  subsequent  FP  numbers  will  not  be  recognized  and  the  floating  point  stack  depth 
indicator  will  not  be  shown. 

Displaying  Floating  Point  Numbers 

Floating  point  numbers  can  be  displayed  with  the  *F.’  operator  in  a  FIXED  point  format. 

To  display  numbers  in  the  fixed  point  format,  execute  the  word  'FIXED'  preceded  by  the 
number  of  digits  to  follow  the  decimal  point. 

EXAMPLE: 

ALSO  MATH  <er>  ok<0> 

FP  <cr>  ok  <0>  [0] 

23.45678  <cr>  ok  <0>  [1] 

FOUP  <er>  ok  <0>  [2] 

2  FIXED  <cr>  ok  <0>  [2] 

F.  23.47  <cr>  ok  <0>  (1J 
NT  <cr>  ok  <0> 

Floating  point  numbers  and  operators  may  also  be  used  within  colon  definitions: 

ALSO  MATH  <cr>  ok  <0> 

FP  <cr>  ok  <0>  [0l 

:  TEST  3.4  2.6  F*  ;  <cr>  ok  <0>  (OJ 
TEST  F.  <cr»  8.84000  ok  <0>  (OJ 
INT  <cr>  ok  <0> 

For  a  summary  of  all  of  the  floating  point  words  and  operators  please  refer  to  the  floating 
point  Glossary  section.  For  more  information  on  the  OS-9  math  module  see  the  Math 
Module  chapter  in  the  OS-9/68000  Operating  System  Technical  Manual. 
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TURNKEY 


Traditionally,  one  of  the  hardest  tasks  for  a  FORTH  system  (or  any  interactive  system) 
was  the  creation  of  stand-alone  applications.  Since  the  primary  purpose  of  any 
development  system  IS  the  creation  of  applications,  our  goal  was  to  make  the  MACH2 
TURNKEY  process  as  simple  and  as  powerful  as  possible. 

The  MACH2  TURNKEY  process  is  simple  because  it  allows  you  to  turn  your  programs 
into  OS-9  executable  program  modules  with  just  one  line  of  code.  It  is  powerful 
because  it  strips  away  the  development  environment  code  which  is  not  required 
for  a  stand-alone  application  in  order  to  create  a  minimal  sized  program  module. 


Using  TURNKEY 

Before  using  TURNKEY  you  must  load  your  program  into  MACH2.  When  the  loading 
process  is  complete,  use  TURNKEY  as  follows: 

TURNKEY  <maln-word>  <module>name>  <cr> 

<main-word>  should  be  the  name  of  the  word  in  your  program  which  performs  all 
program  initialization  and  starts  the  program  going.  <module-name>  is  the  name  you 
wish  to  be  assigned  to  the  executable  program  module  created  by  TURNKEY.  After 
you  press  the  carriage  return,  TURNK^  will  start  the  process  of  turning  your  program 
into  a  stand-alone  application.  When  TURNKEY  is  f^ished  it  will  return  to  the  shell 
and  your  application  should  be  visible  if  you  perform  a  directory  listing  of  your  current 
execution  directory. 

TURNKEY  Examples 

For  an  example  of  a  simple  TURNKEY  application,  please  refer  to  the  TURNKEY  glossary 
page  in  the  back  of  this  manual. 

How  TURNKEY  Works 

TURNKEY  first  creates  a  new  executable  file  and  copies  only  the  MACH2  kernel  code 
(approximately  5K  bytes)  to  the  file.  Next,  TURNKEY  takes  all  code  found  in  the  user 
code  segment  and  writes  it  also  to  the  executable  file.  Finally,  TURNKEY  perfonns 
all  the  actions  required  to  have  OS-9  recognize  the  file  as  an  executable  program 
module  (fixing  the  CRC,  preparing  the  module  header,  etc.).  Since  the  MACH2  compiler 
naturally  generates  relocatable  code  (PC-relathre).  the  executable  program  nxxjules 
generated  by  TURNKEY  will  be  classified  as  'position-independenf . 
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VERBOSE,  a  TURNKEY  Utility 

To  ensure  that  your  application  program  does  not  contain  any  compiled  references  to 
MACH2  compiler  words  (since  the  compiler  words  are  not  included  in  a  TURNKEY 
application)  you  should  place  a  positive  value  in  the  system  variable  'VERBOSE'  before 
loading  your  program.  The  next  time  you  load  your  program,  any  illegal  references  to 
compiler  words  will  be  flagged  with  error  messages. 

ABORT  Considerations 

The  default  run-time  code  executed  during  abort  handling  (when  your  program  uses  the 
word  ABORT  or  ABOR'H  is  the  word  QUIT.  QUIT  is  a  compiler  word  and  thus  cannot  be 
included  in  TURNKEY  applications.  If  you  do  wish  to  use  ABORT  or  ABORT”  in  your 
application  be  sure  to  install  a  custom  abort  handling  routine  (see  the  ABORT 
glossary  entry). 
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Notes: 
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THE  MACH  2  INTERACTIVE  ASSEMBLER 


An  interactlvA  Assembly  Environment  for  68000  Programmers 

MACH  2  can  be  used  exclusively  as  an  interactive  assembly  language  development 
environment  for  those  assembly-language  programmers  who’d  rather  not  write  in  FORTH. 
The  assembler  uses  completely  standard  syntax  and  attempts  tc  follow  the  syntax  of  the 
OS-9/68000  Assembler  wherever  possible.  New  subroutines  can  be  typed  in  from 
the  keyboard  or  loaded  in  from  files.  By  merely  typing  the  name  of  a  subroutine  <*  will  be 
executed.  Each  and  every  subroutine  in  your  program  can  be  tested  and  debugged 
symbolically  and  interactively,  one  at  a  time.  The  entire  program  need  not  be  am  in  one 
fly-or-die  pass. 

The  most  notable  aspect  of  the  MACH  2  Assembler  is  that  it  is  NOT  the  RPN-format 
assembler  usually  included  in  most  FORTH  systems.  It  is  a  standard,  infix  68000 
assembler.  68000  assembly  examples  may  be  copied  straight  from  most  references 
without  alterations.  All  the  mnemonics  are  standard  (see  the  appendix  for  a  list  of  them). 

The  increase  in  readability  and  supportabiiity  of  assembly  language  routines  written  in 
the  MACH  2  assembler  over  assembly  routines  written  in  RPN  assemblers  is  dramatic. 

FORTH  and  Assembly  Language 

Why  is  an  assembler  needed  with  FORTH? 

Speed  and  control.  MACH  2  runs  a  bit  slower  than  hand-optimized  code  would. 
Also,  there  is  no  explicit  access  to  the  actual  CPU  from  MACH  2.  With  a  just  a  little 
knowledge  of  how  FORTH  runs,  programmers  can  take  control  of  the  68000  and 
still  work  within  an  interactive,  development  environment  (MACH  2). 

What  is  the  advantage  of  FORTH  then? 

FORTH  can  be  thought  of  as  a  library  of  pre-written  assembly  language  routines. 
This  library  is  at  the  programmer's  fingertips  and  allows  lightning-fast  application 
development.  In  fact,  these  FORTH  routines  already  do  many  of  the  common 
things  assembly  language  programmers  will  want  to  do  in  their  programs  (move 
blocks  of  memory,  switch  parameters  on  the  stack,  display  characters  on  the 
screen,  take  numeric  input  according  to  a  base). 

Customized  assembly  language  routines  should  only  be  used  to  tighten  up 
FORTH  code  or  to  perform  hardware-related  tasks  where  speed  is  of  the  utmost 
importance. 

The  following  pages  provide  a  brief  introduction  to  the  MACH  2  interactive  assembler. 

The  appendix  contains  additional  information.  For  more  information  on  68000 
assembly  language  programming,  see  the  bibliography  for  recommended  reference 
readings. 
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USING  THE  MACH  2  INTERACTIVE  ASSEMBLER 
CODE  Dttfinitlons 

The  major  difference  between  writing  assembly  code  in  MACH  2  and  writing  assembly 
code  in  a  stand-alone  assembler  is  that  in  MACH  2  you  must  surround  all  of  your 
assembly  subroutines  and  code  fragments  with  the  words  CODE  and  END-CODE. 

CODE  is  used  to  name  the  routine  and  END-CODE  is  used  to  mark  the  end  of  the  routine; 

n  —  n/4  )  ( CODE  makes  a  dkrtbnaiy  header  for  a  new  word, ) 

( A  5 )  •*■ ,  0  0  (  ‘compiling.  The  words  between  ) 

#2  00  ^  CODE  and  END-CODE  are  run  when  '4/  is  executed. ) 

D  o'  •  r  A  5 1  (  notation,  a  number  should  be  on  the  ) 

’  '  (  stack.  That  number  will  be  divided  by  four  and  ) 

( returned  on  the  stack.  END-CODE  signals  the  end  ) 

( of  the  definition  and  stops  compilation. ) 

The  word  CODE  puts  FORTH  into  the  compilation  mode,  adds  the  ASSEMBLER 
vocabulary  to  the  search  order,  and  installs  an  ABORT  vector  to  handle  local  branching. 

The  word  END-CODE  is  like except  that will  automatically  compile  an  RTS  ( $4E75) 
into  the  definition  being  oonstmcted.  In  a  code  definition  this  must  be  done  explicitly 
by  using  the  RTS  mnemonic.  This  is  an  important  point.  In  addition,  the  cument 
numbar  base  is  saved  by  CODE  and  restored  by  END-CODE.  During  compilation  the 
base  is  decimal. 

Assembler  mnemonics  such  as  MOVE.L  are  immediate  compiling  words  whose  job  it 
is  to  parse  the  input  stream  and  compile  the  correct  op-codes  into  the  dictionary.  Only 
later,  when  the  word  the  assembly  language  instmction  was  compiled  into  is  run,  will  the 
68000  actually  run  a  MOVE.L  instruction. 

Referencing  Previous  Definitions. 

Two  methods  are  available  for  making  references  to  other  definitions.  Either  use  the  name 
by  itself  (since  the  system  is  in  compile  mode  while  in  code  definitions,  the  FORTH  compiler 
will  do  the  compiling); 

CODE  Examplel  (  n1  n2  -  n3  ) 

OVER 

SWAP 

« 

ENO-C^ODE 

...or  by  using  the  assembly  language  'jump  to  subroutine'  instruction;  'JSR  <name>' 

( in  this  case  the  assembler  will  compile  <name>  without  regard  to  immediate  or  macro 
bits-see  the  macro  discussion  which  follows); 


CODE  4/  ( 
MOVE.L 
ASR.L 
MOVE.L 
RTS 

END-CODE 


37 

MACH  2  Interactive  Assembler 


CODE  Exampl«2  (  nl  n2  -  n1  n2  n1  ) 

JSR  OVER 
JSR  SWAP 
JSR 

ENO-^OOE 

If  the  above  method  is  used,  any  FORTH  words  which  contain  characters  which  are  also 
used  as  arithmetic  operators  in  assembler  expressions  /MOD.  FORTH-83,  etc  ), 

must  be  surrounded  by  quotation  marks  (see  **'  in  the  above  example). 


Making  OS<9  System  Calls  from  Assembly 

To  make  an  OS-9  system  call  from  within  a  CODE  definition,  use  the  'OS9‘  assembler 
psuedo-inst  ruction: 

CODE  SendSIgnal  (  proeaaalO  aignal  ~  arroreoda  ) 


MOVE.L 

MOVE.L 

089 

BCC.S 

(AS)-»,D1 

(AS)>,DO 

FSSand 

@NOERR 

\  get  signal  to  sand  from  stack 
\  gat  intandad  racaivar's  procass  ID  from  stack 
\  maka  tha  FSSand  cail  to  tha  OS-9  karnal  modula 
\  if  carry  bit  daar  than  no  arror  occurrad 

EXT.L 

MOVE.L 

BRA.S 

D1 

D1.-{AS) 

OEXIT 

\  otharwisa,  axtand  tha  word-langth  arror  ooda 
\  placa  tha  arror  coda  on  tha  paramatar  stack 
\  always  placa  an  RTS  at  tha  and  of  a  subroutina 

(8>N0ERR 

CLR.L 

.(AS) 

V  raturn  xaro  if  no  arror  axists 

®EXIT 

RTS 

\  raturn  from  subroutina 

END-CODE 

There  are  many  important  things  to  notice  in  this  example.  Rrst,  the  line  'OS9  FSSend* 
is  equivalent  to  the  following  assembly  language  sequence: 

TRAP  so 
DC.W  8 

Trap  #0  is  the  software  exception  vector  used  to  access  the  system  calls  in  the  OS-9 
kernel  module.  The  word-length  data  following  the  trap  call  is  the  selector  code  used  to 
identify  which  routine  in  the  kernel  is  being  called.  A  listing  of  the  selector  codes 
corresponding  to  all  available  OS-9  system  calls  is  included  in  an  appendix. 

The  register  usage  for  all  of  the  OS-9  system  calls  is  listed  in  chapters  14, 15.  and  1 6  of 
the  OS-9/68000  Operating  System  Technical  Manual.  Many  of  the  system  calls  will 
return,  as  this  call  did,  with  the  carry  bit  set  if  an  error  occurred.  Finally,  note  that  it  is 
very  easy  to  interact  with  the  MACH2  parameter  stack. 
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ASSEMBLER  SYNTAX 

MACH  2  code  definitions  tnay  contain  some  or  all  of  the  following; 

•  instructions  (68000  assembly  language  instructions  or  FORTH  words) 
separated  by  at  least  one  space  or  psuedo-instnjctions  (.ALIGN,  OC,  etc.) 

•  local  labels 

•  comments 

Local  Labels 

Local  labels  are  only  valid  within  the  CODE  definition  in  which  they  are  used.  Local 
labels  must  be  in  the  form  tgixxx  where  xxx  is  any  ascii  string  which  does  not  contain 
spaces.  Only  16  forward  references  may  be  made  to  any  single  local  label  but  any 
number  of  back-references  are  allowed. 

The  definition  of  the  FORTH  word  0>  uses  a  local  label  for  a  forward  branch; 


CODE  Os  (  n 

-  1  ) 

MOVEQ.L 

*0,00 

TST.L 

|A5)  + 

BNE.S 

($1 

MOVEQ.L 

«-1,00 

MOVE.L 

00, -(AS) 

RTS 

ENO-COOE 

MACH 

Instructions  and  Pseudo-Instructions 

An  instmction  can  be  a  68Q00  instruction  or  a  previously  defined  FORTH  word.  68000 
instructions  are  described  in  the  68000  Reference  Manual,  Fourth  Edition.  Explanations 
of  MACH  2  FORTH  words  are  in  the  glossary.  If  an  instmction  requires  an  operand,  at 
least  one  space  should  separate  the  instruction  and  operand. 

A  pseudo-instruction  is  an  assembler  instruction  which  generates  code  but  is  not  actually 
a  68000  instruction.  Pseudo-instructions  help  improve  program  readability.  The  pseudo¬ 
instructions  provided  by  the  MACH2  assembler  are  described  later  in  this  chapter. 

Comments 

The  standard  FORTH  commenting  words '('  and  Vshould  be  used  for  comments  in 
assembly  language  routines.  See  the '('  and  V  glossary  entries.  The '('  commenting 
word  supports  nested  comments. 
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ASSEMBLER  EXPRESSIONS 

Addressing  modes  and  assembler  directives  often  use  expressions  as  part  of  their 
operands.  Numbers,  and  symbols  that  represent  numbers  can  be  used  in  expressions. 

Numbers 

Three  types  of  numbers  may  be  used:  decimal,  hexadecimal,  and  binary. 

308  Decimal  numbers  are  the  default. 

$  3  F  C  Hexadecimal  numbers  must  be  preceded  by  a  '$'. 

%  1 1 0  Binary  numbers  must  be  preceded  by  a  *%'. 

Operations 

The  MACH  2  assembler  supports  the  following  arithmetic,  shift,  and  logical  operations 
in  an  expression: 


Type 

Operation 

Operator 

Comment 

Arithmetic 

Addition 

Subtraction 

- 

Multiplication 

• 

Division 

/ 

Integer  result 

Negation 

- 

Shift 

Shift  Right 

» 

Zeros  shifted  in 

Shift  Left 

<< 

Zeros  shifted  in 

Logical 

And 

& 

Or 

! 

Operator  Precedence 

Multiple  operators  in  an  expression  are  evaluated  in  the  following  order  (operators  with 
the  same  precedence  are  evaluated  from  left  to  right) : 

1 .  Operations  in  parentheses  (innermost  parentheses  evaluated  first) . 

2.  Negation. 

3.  Shift  operations. 

4 .  Logical  operations. 

5 .  Multiplication  and  division. 

6.  Addition  and  subtraction. 

As  the  following  example  demonstrates,  the  use  of  inline  math  in  assembly  code  can 
improve  program  readability: 

MOVE.W#1«8  +  42,01  WQ  MOVE.W  #298,01 

OS9  F$PErr  OS9  F$PErr 
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Symbols 

In  the  MACH  2  assembler,  a  symbol  is  a  string  used  to  represent  either  a  number  or  a 
complete  effective  addressing  mode.  Numbers  are  assigned  to  symbols  with  the 
defining  word  CONSTANT  or  the  assembler  directive  EQU.  A  symbol  is  assigned  to  an 
effective  addressing  trxKJe  with  the  EQU  directive.  Any  character  may  be  used  in  a  symbol 
string  except  for  the  following:  '#’ . , '{' ,  ')* .  the  digits  0-9.  and  the  arithmetic  operators 
listed  on  the  previous  page.  Do  not  use  the  names  of  any  predefined  FORTH  or 
ASSEMBLER  words  (e.g.  TYPE,  AO)  for  symbols. 

ASSEMBLER  DIRECTIVES 

EQU  ,  A  Symbol  Definition  Directive 

The  EQU  directive  is  used  to  assign  a  numerical  value,  expression,  or  an  addressing  mode 
to  a  symbol. 

EQU  1 2  MotorSOffset  \  using  EQU  to  assign  the  number 

\  12  to  the  symbol  MotorOOffset, 

EQU  3*4  MotorSOffset  \  using  this  expression  with  EQU  would 

\also  work 

EQU  Motor3State  Mator30ffset(AO)  \  using  EQU  to  assign  the  addressing 

\  mode  12(A0)  to  the  symbol 
\  Motor3State 

The  use  of  symbols  with  assembly  language  tends  to  produce  much  more  readable  and 
meaningful  source  files.  For  example,  both  of  the  following  instructions  would  obtain  the 
the  value  which  indicates  the  current  state  of  motor  #3  from  an  anay  of  several  motor  state 
flags.  The  instruction  which  uses  a  symbol  gives  a  better  idea  of  what  is  going  on: 

With  symbols:  MOVE.L  MotorSState.DO 

Without  symbols:  MOVE.L  12(AO},00 

When  the  string  'MotorSState'  is  compiled  it  will  be  replaced  with  the  addressing  mode 
■ioComp{A0)’  where  'ioComp'  is  the  constant  12. 

DS,  A  Data  Storage  Allocation  Directive 

The  OS  directive  is  used  to  resenre  space  for  variables  in  the  variable  space. 

Length  is  an  expression  which  specifies  the  number  of  bytes,  words,  or  long  words 
to  be  reserved : 


LABEL 

<name-of-apace> 

OS.B 

length 

LABEL 

<nama-of-apaca> 

OS.W 

langth 

LABEL 

<name-of-apaca> 

0S.L 

length 

Ex: 

LABEL  CurrantTIma  OS.L  1 
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The  atxive  exr  'ole  is  equivalent  to  the  following  use  of  the  FORTH  word  VARIABLE: 
VARIABLE  <nanM^f>apac«>  (CallaOaalrad)  (alza)  *  4  •  VALLOT 

Executing  the  name  of  the  storage  space  will  put  its  address  on  the  stack,  just  as  in  FORTH. 
Examples  of  accessing  OS  storage  areas  from  assembly: 

MOVE.L  MYVARIABLE.OO  (fetch) 

MOVE.L  OO.MYVARIABLE  (Store) 


ASSEMBLER  PSEUDO-INSTRUCTIONS 

Data  Allocation  Pseudo-Instructions  •  DC  .  OCB 

In  a  MACH  2  program,  the  memory  space  is  divided  up  ir«o  two  parts:  the  code  space 
and  the  variable  space.  Define  Constant  (DC)  and  Define  Constant  Block  (DCB)  are 
used  to  define  constant  data  which  is  located  in  the  code  space  (program  area). 

Define  Storage  (DS)  is  used  to  allocate  space  for  variables  in  the  variable  space  (the 
uninitialized  data  area).  The  MACH2  assembler  has  no  provisions  for  allocating  data 
in  the  initialized  data  area. 

DC  (Define  Constant) 

The  DC  pseudo-instructions  below  will  place  data  in  the  code  space.  The  three  different 
forms  of  the  DC  pseudo-instructions  generate  data  which  is  either  byte  aligned  (DC.B),  word 
aligned  (OC.W),  or  long  word  aligned  (DC.L).  The  DC.W  and  DC.L  pseudo-instmctions  will 
always  align  their  data  on  word  or  long  word  boundaries,  respectively. 

HEADER  <name-of-eonstant>  DC.B  value(s) 

HEADER  <name-of-eanstant>  DC.W  vatua(s) 

HEADER  <name'af-oonatant»  DC.L  valua(a) 

Ex:  HEADER  MotorOn  DC.B  U 

Multiple  values  should  be  separated  by  commas.  A  T  must  be  used  before  a  hexadecimal 
value.  ( Note  that  DC.B  $A  is  equivalent  to  HEX  A  C,  )  A must  be  used  before  a  binary 
value.  Arithmetic  expressions  may  also  be  used  with  DC. 
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The  OC.B  directive  may  be  used  to  lay  strings  into  memory  as  follows.  Note  that  the  string 
should  be  delimited  by  single  quotes.  To  define  a  string  constant  which  contains  a  single 
quote  the  single  quote  must  be  preceded  by  a  single  quote.  .ALIGN  should  be  used 
after  the  definition  of  a  string  constant  to  ensure  that  the  dictionary  pointer  ends  up  on  an 
even  word  boundary. 


HEADER 

CountedStrlng 

DC.B  S,‘Hallo' 
.ALIGN 

HEADER 

C-String 

DC.B  ‘Helto‘,0 
.ALIGN 

HEADER 

StrIngWIthQuota 

DC.B  'Don"!' 
.ALIGN 

OCB  (Define  Constant  Block) 

The  OCB  pseudo-instruction  is  used  to  reserve  blocks  of  memory  in  the  code  space 
that  are  to  be  initialized  to  a  certain  value.  Length  specifies  the  number  of  bytes  (OCB.B), 
words  (OCB.W)  or  long  words  (OCB.L)  in  the  block.  Value  specifies  the  value  to  be 
stored  in  the  b^es,  words,  or  long  words  which  comprise  the  block. 

HEADER  <name-of-data*block>  OCB.B  length, value 

HEADER  «nama-of-<tata-block>  OCB.W  length, value 

HEADER  <name-of-<tata-block>  OCB.L  length, value 

Ex:  HEADER  ThraeSpacae  OCB.W  3,$20 

The  above  example  is  equivalent  to  a  HEX  20  W,  20  W,  20  W,  . 

The  address  of  a  data  block  is  also  obtained  by  Ticking'  its  header. 

Examples  of  accessing  OC(B)  data  from  assembly  language: 

CMP.B  MotorOn.DO  (ComparaswhatisinthaDOtoSA) 

MOVE.B  MotorOn.DO  ( Moves  the  byte  value  $A  into  the  DO ) 

LEA  ThreeSpaces.AO  (  Puts  the  address  of  ThreeSpaces  in  the  AO  register ) 
The  TCALL  and  OSS  Pseudo-Instructions 

The  OSS  pseudo-instruction  was  discussed  previously.  The  TCALL  pseudo-instruction 
is  used  to  generate  calls  to  user  trap  handler  modules.  TCALL's  syntax  and  an  example 
of  its  use  are  shown  below: 

TCALL  <trap  vector#>.<function  code> 

CODE  CallTrapModule  (  •  ) 

TCALL  3,8 
RTS 
END-CODE 
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The  <trap  vectof#>  is  the  number  of  the  68000  software  exception  vector  (#0-15)  used 
to  access  the  trap  handler  moduie  (refer  to  the  section  on  user  trap  handler  modules  for 
more  infonnation).  <function  code>  is  a  value  which  will  be  passed  from  the  calling  program 
to  the  trap  module.  The  TCALL  pseudo-instmction  will  generate  the  following  assembly 
language  sequence: 

TRAP  <trap  vector#> 

DC.W  <function  code> 

Note  that  the  definition  of  the  OSS  pseudo-instmction  is  TCALL  0,<selector>  . 


MACH  2  MACROS 

MACH  2  allows  macro  substitution  (see  the  discussion  in  the  appendix).  One  bit  in  the 
header  of  a  word  is  reserved  as  thw  “MACK  bi.  If  a  word  with  its  MACH  bit  set  is  encountered 
during  compilation,  all  of  the  assembly  language  instaictions  whk:h  comprise  the  word  will  be 
laid  into  the  definition  being  built.  Normally,  a  JSR  to  the  executable  code  for  the  word 
would  be  compiled.  This  technique  can  be  used  to  decrease  execution  time  of  words  and. 

; .  times,  save  space.  Both  colon  and  code  definitions  may  be  marked  as  macros. 

To  aeate  a  FORTH  macro  use  the  word  ‘MACH*  after  the  code  definition.  The  word 
OUP  has  been  defined  as  a  MACH  2  macro  word  for  two  reasons.  One  reason  is  that 
the  opcode  which  does  a  OUP  takas  up  half  the  memory  as  the  opcode  for  a 
jump-to-subroutine  instruction.  The  second  reason  is  that  it  is  much  faster  to  execute 
in-line  code  than  to  jump  to  a  routine  in  a  separate  location  and  then  return. 

CODE  OUP 

MOVEX  (AS), -(AS) 

RTS 

ENO-COOE  MACH 

Three  precautions  should  be  observed  when  setting  the  MACH  bit  on  a  word  ; 

1 )  Only  the  instnjctions  up  to  the  first  RTS  will  be  transferred  so  make  sure  the 
routine  to  be  'macro-ed*  has  only  one  RTS  and  that  the  RTS  is  in  the 

last  line  in  the  routine. 

2)  Any  routines  which  contain  PC-relative  refererx;es  to  words  outside  of  the 
current  code  definition  will  not  run  correctly  if  moved  into  a  definition  in  a 
different  location. 

3)  Excessive  use  of  MACH  words  may  yield  a  large  increase  in  program  size  with 
only  a  small  speed  improvement. 

MACH  sets  bit  6  in  the  count  byte  of  the  name  field  (see  the  dictionary  header  appendix). 

It  works  exactly  the  the  words  IMMEDIATE  and  SMUDGE. 
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THE  MACH  2  SYMBOLIC  DISASSEMBLER 


A  disassembler  could  be  described  as  th<>  static  equivalent  of  a  debugger.  The  debugger 
lets  you  observe  your  code  dynamically,  as  it  njns.  The  disassembler  lets  you  look  at  your 
code  statically,  it  lets  you  see  the  way  your  code  has  been  put  into  memory.  If  your  program 
Is  written  in  high-level  FORTH,  the  disassembler  lets  you  see  the  assembly  language 
instructions  the  MACH  2  compiler  used  to  implement  your  FORTH  words. 

A  disassembler  perfomis  the  opposite  function  of  an  assembler.  When  a  program  is 
assembled,  all  of  the  human-readable  commands  (such  as  MOVE.L  DO.Dl  ,  or  JMP  (AO) ) 
are  converted  to  the  binary  numbers  which  the  computer  understands.  The  human-readable 
commands  are  called  instruction  mnemonics  and  their  corresponding  numerical  vali’‘'s  are 
called  opcodes.  A  disassembler  will  take  the  opcodes  generated  by  an  assembler  and 
convert  them  back  to  the  instruction  mnemonics  which  a  person  understands. 

Symbolic  Disassembly 

The  MACH  2  disassembler  takes  the  disassembly  process  one  step  further  by  also 
listing  the  name  of  the  FORTH  word  which  is  currently  being  disassembled  to  the  right 
of  the  corresponding  assembly  instruction.  This  helps  you  keep  track  of  where  you  are 
in  a  particular  word.  The  action  of  associating  a  name  (symbol)  with  an  instruction  while 
disassembling  is  called  symbolic  disassembly. 

IL:  The  MACH2  Disassembly  Command 

To  access  the  MACH  2  symbolic  disassembler  use  the  ’IL‘  disassembly  command  . 

IL  is  located  in  the  FORTH  vocabulary.  IL  will  disassemble  'count  instmctions  starting  at 
the  specified  address.  The  names  of  the  routines  being  disassembled  will  also  be  listed 
in-line  with  the  instructions  being  displayed. 

•tart-addrese  count  IL 

Ex:  ALSO  ASSEMBLER  <cr>  ok  <0> 

HEX  <cr>  ok  <S0> 

10000  20  IL  <cr« 

The  above  example  will  disassemble  the  32  instructions  starting  at  address  lOOOO  hex. 

If  there  are  no  valid  instmctions  at  the  address  provided,  the  disassembler  will  still  attempt 
to  convert  the  numbers  it  finds  info  instmction  mnemonics.  The  disassembly  will  appear 
random. 

Note:  The  MACH2  disassembler  code  is  located  in  a  user  trap  module  which  is  accessed 
by  MACH2  through  software  exception  vector  #1 3. 
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THE  MACH  2  SYMBOLIC  DEBUGGER 

When  your  program  is  not  running  correctly  and  you  cani  understand  why  or,  when  you 
want  to  step  through  your  code  JUST  to  make  sure  its  doing  what  you  think  it  is,  it's  time 
for  the  debugger. 

A  debugger  is  a  tool  which  lets  you  watch  your  program  mn,  assembly  instruction  by  assembly 
instruction.  After  each  instruction  executes  you  c<  n  examine  or  change  the  contents  of  the 
registers,  memory,  or  FORTH  stacks.  If  you  would  only  like  to  see  a  small  section  of  your  code 
execute  you  can  insert  a  break  point  (a  STOP!  command)  au  the  beginning  of  the  section  of 
interest  and  then  am  your  program  normally.  When  the  breakpoint  is  encountered  the 
debugger  will  stop  execution  of  your  program  and  display  the  contents  of  all  16  68000 
registers  and  the  assembly  language  instruction  about  to  be  executed. 

Invoking  the  Debugger 

In  order  to  use  the  debugger,  you  must  somehow  'invoke'  or  'call'  it.  There  are  two  ways  of 
entering  the  debugger: 

« 1  Compile  the  DEBUG  command  Into  a  definition 

If  you  include  the  word  DEBUG  in  one  of  your  definitions,  the  debugger  will  be 
entered  whenever  you  execute  that  definition. 

:  TEST  DEBUG  100  DO  I  .  LOOP  ; 

If  you  were  to  execute  TEST,  the  debugger  would  stop  execution  right  before 
the  DO. ..LOOP. 

*2  Execute  the  DEBUG  command  Interactively 

If  you  interactively  execute  the  word  DEBUG,  the  debugger  will  stop  the 
execution  of  MACH  2  immediately: 

DEBUG  <cr> 

If  you  enter  the  debugger  this  way  you  will  not  know  where  the  debugger 
has  stopped.  You  will  have  to  use  other  debugger  commands  to  get  to 
the  section  of  your  program  you  wish  to  examine. 

If  you  interactively  execute  DEBUG  followed  by  the  name  of  a  pre-defined 
word,  the  debugger  will  immediately  set  a  break  at  the  first  instmction  in  the 
word.  The  next  time  the  word  is  executed,  the  debugger  will  be  entered: 

:  GO  2  3  DUP : 

DEBUG  GO  <cr> 
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Th»  Debugger  Display 

The  following  picture  shows  the  display  which  is  generated  when  you  enter  the  debugger: 


Assembly  langusgs  instruction 
about  to  bs  cxacutsd.  This  Is  the 


first  Instruction  In  the  word  GO. 


DEBUG  GO 
00055232: 


MOVE.L 


Flag 

{A5).-(A5) 


settings. 


FORTH  word  about 
to  bo  sxscutod. 

V 

DUP 


PC:  00055232 
AO:  00051154 
A1:  00051152 
A2:  00000000 
A3:  0001 EA32 


SR:  0310 
A4:  00000000 
A5:  0001  FI  E6 
A6;  00021100 
A7:  000201 7E 


X.1  N-0  Z-0 

00:  00055232  04:  00000008 

01:  00000007  05:  00000007 

02:  00000003  06:  00000007 

03:  00000000  07:  0001 EAOA 


>  AO  567E2 

f 


\ 


Changing  the 
contents  of  the 
AO  register 


This  Is  the  debugger 
prompt.  It  means  we 
are  In  the  debugger 
and  that  the  debugger 
la  awaiting  a  command. 


t 

This  display  ahows  the 
contents  of  all  registers 
prior  to  the  execution 
of  DUP. 


Once  you  have  the  debugger  prompt  you  can  use  any  of  the  debugger  commands  listed 
below  to  move  around  in  the  debugger. 


Important  Debugger  Information  ii 

As  the  debugger  wortts,  it  will  write  data  into  the  code  area  of  the  program  being 
debugged  and  in  the  MACH2  program  module.  This  means  that  while  the  MACH2 
debugger  is  in  use,  it  will  be  generating  self-modifying  code.  Since  self-modifying 
code  can  have  disastrous  consequences  in  a  multi-tasking,  multi-user  system  such 
as  OS-9,  you  must  make  sure  that  when  you  use  the  MACH2  debugger,  you  are 
the  only  person  using  MACH2  on  your  system. 

THE  DEBUGGER  COMMANDS 

The  following  pages  list  all  of  the  debugger  commands  at  your  disposal. 
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DEBUGGER  COMMANDS 


An  <expr> 

Modify  or  display  the  contents  of  address  register  n.  If  'An'  is  followed  by  an  expression, 
the  specified  register's  contents  will  be  changed  to  the  value  of  the  expression.  If  'An'  is 
not  followed  by  an  expression,  the  current  contents  of  the  specified  address  register  will 
be  displayed: 

>  A1  <cr>  51152  \  Display  the  contents  of  register  A1 

>  A1  RA6+8<er>  \  Set  the  contents  of  register  At  to  the  contents  of 

\  register  A6  plus  8. 


BR  <addr>  <cnt> 

Used  to  set  or  display  normal  or  counted  breakpoints.  If  used  without  any  of  the  optional 
parameters,  'BR'  will  display  the  addresses  of  all  temporary  breakpoints  currently  set.  For 
counted  breakpoints.  'BR'  will  also  display  a  count  of  how  many  more  times  the  breakpoint 
must  be  hit  before  program  execution  is  halted.  If  'BR*  is  followed  by  an  address,  a  breakpoint 
will  be  set  at  the  address.  If  'BR'  is  followed  by  an  address  and  a  count,  a  counted  breakpoint 
will  be  set  at  the  address.  A  counted  breakpoint  is  a  breakpoint  which  must  be  hit  <cnt>  times 
before  program  execution  will  actually  be  suspended.  Each  time  a  counted  breakpoint  is  hit, 
the  registers  wiil  be  displayed  but  program  execution  will  not  stop  until  the  count  reaches  0. 

>  BR  54112  <er> 

>  BR  54120  8  <er> 

>  BR  <cr> 

54112 

54120  8 


CL  <addr> 

Clear  break  points.  'CL'  followed  by  an  address  will  remove  the  breakpoint  at  that  address. 
'CL'  followed  by  no  address  will  remove  all  temporary  break  points. 

CV  EXPR 

Convert  expression.  'CV  must  be  followed  by  an  expression.  The  expression  may  contain 
any  of  the  arithmetic  operators  described  in  the  assembler  section.  binary(%)/octal('')/ 
decimal(#)/hexadecimal($)  numbers,  and  register  operators.  'CV  wilt  convert  the  expression 
to  Its  hexadecimal  and  decimal  equivalent  values. 

>  CV  RAe«%10104'$4E'f«400.»"S5  <cr> 

H«x21315  D«c;135957 
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DEBUGGER  COMMANDS  (cont.) 


DM  <addr>  <cnt> 

Display  the  contents  of  memoty.  if  no  parameters  follow  ’DM',  16  bytes  of  memory,  starting 
from  the  address  last  used  with  any  debugger  command,  will  be  displayed.  If  an  address 
follows  'DM*,  the  16  bytes  of  memory  starting  at  the  address  will  be  displayed.  If  an  address 
and  a  count  follow  ‘DM*,  the  'count*  bytes  of  memory  starting  at  the  address  will  be  displayed. 

A  convenient  way  to  specify  a  register  address  to  *DM*  (or  any  other  debugger  command 
which  accepts  an  address)  is  to  place  an  *R*  in  front  of  the  desired  register  symbol  (i.e.  use 
'RA7  to  specify  the  address  in  register  AT).  To  add  a  level  of  indirection,  precede  the  R*  with 
one  or  more  *@*  signs: 

>  DM  RAT  <cr>  \  Display  memory  startmg  at  the  address  in  register  AT. 

020nE:  0006  06A4  0006  Q19A  0005  D544  CODE  FEED  . D _ 

>  OM  (3)RA7  10  <cr>  \  Display  memory  at  the  address  located  at  the  address  in  AT. 

0606A4:  4EBA  Dia6  4EaA  D610  4A92  671C  6110  0E20  S. . .N. . . J.g.a. . . 

0606B4:  5374  6163  6B20  456D  7074  7920  2120  2B1F  Stack . Empty .!.+ . 

On  <expr> 

Modify  or  display  the  contents  of  data  register  n.  See  ‘An*. 

ES 

Exit  to  the  OS-9  shell. 

G 

Go.  Continue  program  execution  until  the  next  break  poim  is  encountered. 

GT  ADOR 

'Goto*.  Sets  a  temporary  breakpoint  at  the  address.  Then,  program  execution  is  continued 
until  the  breakpoint  is  reached.  When  the  breakpoint  is  reached,  it  is  automatically  removed. 
Useful  for  *walking  through*  a  program. 

H 

Help.  Displays  a  summary  of  the  available  debugger  commands.  Optional  command 
parameters  are  places  between  arrows  (i.e.  <addr>).  Required  command  parameters  are 
capitalized  (i.e.  ADDR). 
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DEBUGGER  COMMANDS  (cont.) 


>  H  <cr> 


An 

<expr> 

BR 

<addr>  <cnt> 

CL 

<addr> 

CV 

EXPR 

DM 

<addr>  <cnt> 

Dn 

<expr> 

ES 

G 

GT 

ADDR 

IL 

<addr>  <cnt> 

PC 

<axpr> 

RX 

S 

<cnt> 

SB 

ADDR  EXPR 

SW 

ADDR  EXPR 

SL 

ADDR  EXPR 

SR 

<8xpr> 

SS 

T 

<cnt 

TD 

C  N  V  X  Z 

Modify/display  addross  register 
Set/display  breakpoints 
Clear  breakpoint 
Convert  expression 
Display  memory 
Modify/display  data  register 
Exit  to  shell 
Go/run 

Goto  temporary  breakpoint 
Instruction  list 

Modify/dispiay  program  counter 
Toggle  register  listing 
Single  step 
Set  memory  [byte] 

Set  memory  [word] 

Set  memory  [long] 
Modiiy/display  status  register 
Show  parameter  stack 
Trace  instr.  TRAP/JSR  -  1 
Display  all  registers 
Modify/d'spiay  status  bits 


IL  <addr>  <cnt> 

Instruction  list.  Disassembles  <cnt>  instnjctions  starting  at  <addr>.  If  no  count  is  specified, 
the  10  instructions  starting  at  the  address  are  disassembled,  if  no  address  or  count  are 
specified,  the  10  instructions  starting  at  the  last  address  used  by  a  debugger  command 
are  disassembled.  Note  that  'IL'  is  both  a  debugger  command  and  a  FORTH  word  and  that 
it  is  used  differently  in  both  environments. 

PC  <expr> 

Modify  or  display  the  contents  of  the  program  counter.  See  ‘An’. 

RX 

Toggle  register  display.  Toggles  between  a  complete  register  display  and  a  display  of 
only  the  current  instruction. 

S  <cnt> 

Step.  Execute  one  assembly  language  instruction  and  stop.  If  a  count  is  specified,  execute 
'count'  assembly  language  instructions  and  stop. 

so 
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Interfacing  to  OS-9 


Notes: 
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EXPECT  Accepts  Line  Editing  Commands 

The  FORTH  word  EXPECT  is  the  main  word  used  by  MACH2  as  it  interactively  accepts 
lines  of  user  input.  As  the  following  assembly  language  definition  shows,  EXPECT 
uses  the  l$ReadLn  I/O  system  call  and,  therefore,  supports  the  standard  OS-9  line 
editing  commands: 

CODE  Expect  (an-  ) 

MOVE.L  (AS)«,01  \  length 

MOVEA.L  (AS)«,A0  \  buffer  address 

MOVEQ.L  «0,00  \  l/Ochannel 

OSS  ISRaadLn  \  read  in  the  string 

BCS  OS9_ERROR  \  MACH2  error  handling  word 

SUBQ.L  \  set  up  SPAN,  see  the  SPAN 

MOVE.L  01,SPAN(A6)  \  glossary  page. 

RTS 

END-CODE 


KEY  Does  Not  Accept  Line  Editing  Commands 

The  FORTH  word  KEY  is  the  word  used  by  MACH2  when  it  takes  single  character  input 
from  the  user.  Sirtce  KEY  uses  ISRead  to  read  in  single  characters  it  does  not  support 
the  use  of  the  OS-9  line  editing  commands.  KEY'S  function  is  to  return  the  ASCII  code 
corresponding  to  the  input  character: 

CODE  KEY  (  •  c  ) 

JSR  Set  NoEcho 
CLR.L  -(AS) 

LEA  3(AS>,A0 
MOVEQ.L  «0,D0 
MOVEQ.L  it, 01 
OSS  ISRead 
BCS  OSS.ERROR 
JSR  Reset  Echo 
RTS 

END-CODE 


The  'Set.NoEcho'  and  'Reset_Echo'  subroutines  are  shown  on  the  following  pages  as 
examples  of  changing  a  terminafs  operating  characteristics.  Note  that  although  KEY  will 
not  recognize  the  standard  line  editing  command  keys  it  will  still  be  affected  by  the  special 
'interrupt'  keys  (CONTROL  C  and  CONTROL  E).  The  section  on  OS-9  signals  explains 
how  'interrupt*  keys  are  processed. 


\  turn  echo  parameter  off  for  this  terminal 

\  ISRead  will  return  the  character  on  the  stack 
\  use  default  path 
\  read  only  one  byte 
\  Read  I 

\  MACH2  error  handling  word 
\  turn  echo  back  on  for  this  terminal 
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G«ttlng/S«ttlng  Tarmlnal  Charactarlstics 

The  list  below  shows  the  terminal  characteristics  which  may  be  changed  interactively, 
by  using  either  the  TMOOE  (see  page  6-107  of  the  OS-9/68000  OS  User's  Manual)  or 
XMOOE  (see  page  6-i  19  of  the  OS-9/68000  OS  User's  Manual)  utility  commands,  or  from 
within  a  program  by  using  the  ISGetStt  and  l$SetStt  (see  pages  15-9  and  15-18  of  the 
OS-9/68000  OS  Technical  Manual)  I/O  system  calls; 


Latter  case 

Dastructiva  backspace 

Lina  delate 

Echo 

Automatic  line  feed 
End  of  line  null  count 
End  of  page  pause 
Page  length 

Backspace  ’input*  character 
Delate  line  character 
End  of  record  character 
End  of  file  character 
Reprint  line  character 


Duplicate  last  line  character 

Pause  character 

Keyboard  interrupt  character 

Keyboard  abort  character 

Backspace  'output*  character  (echo  char) 

Lina  overflow  character 

Parity  coda.  *  of  stop  bits  &  bits/char 

Software  adjustable  baud  rata 

X-on  character 

X-off  character 

Tab  character 

Tab  field  size 


TMOOE  is  used  to  set/check  the  operating  characteristics  of  the  terminal  currently  in  use. 
Changes  made  with  TMOOE  will  only  remain  in  effect  until  the  path  to  the  user's  terminal 
is  closed.  XMOOE  is  used  to  set/check  the  default  characteristics  which  will  be  given  to  all 
terminal  paths  which  are  subsequently  opened  (XMOOE  actually  updates  the  memory  image 
of  the  device  descripter  information  for  terminals).  Changes  made  with  XMOOE  will  remain 
in  effect  until  the  computer  is  shut  down.  Refer  to  the  XMOOE  utility  command  description 
on  page  6-1 19  of  the  OS-9/68000  Operating  System  User's  Manual  for  information  on  how 
to  permanently  change  terminal  characteristics. 

Interactively  Checking  a  Termlnars  Operating  Characteristics 

The  following  example  demonstrates  how  TMOOE  may  be  used  interactively  from  within 
MACH2  to  check  the  operating  characteristics  of  the  terminal  currently  being  used  by 
MACH2  (if  no  arguments  follow  TMOOE  it  will  display  the  current  terminal  operating 
characteristics): 


$  TMOOE  <cr> 

/term 

noupc  bsb  nobsl  echo  If  nuH-O  nopause  pag-24  bsp-OS  deU18  eor-00 
eof-lB  reprint-04  dup-01  psc-l7  abort-03  quit-05  bsc-08  bell-07 
type-00  baud-9600  xon-ll  xotf-l3  tabc-09  tabs-4 
ok  <0> 
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The  table  on  pages  6-107  through  6-1 1 0  of  the  OS-d/68000  OS  User's  Manual  will 
help  decipher  the  MACH2  terminal  characteristics  returned  by  TMODE. 

Setting  a  Terminal's  Operating  Characteristics  from  within  a  Program 

The  two  subroutines  shown  below  show  how  a  terminal's  operating  characteristics 
may  be  altered  trom  within  a  running  program.  These  are  the  two  subroutines  used 
by  KEY  in  a  previous  example.  Since  the  FORTH  standard  requires  that  KEY  does 
not  echo  its  input,  the  subroutine  'Set_NoEcho'  is  used  to  turn  oil  echoing  in  the 
current  terminal  path.  Alter  the  character  has  been  input,  ‘Resat.Echo'  is  used  to 
turn  character  echo  back  on. 

The  ISSetStt  I/O  system  call  used  to  alter  terminal  characteristics  allows  you  to  change 
multiple  terminal  characteristics  at  once.  Typically,  the  process  used  to  change  a 
terminal  characteristic  involves:  l .  using  ISGetStt  to  read  in  a  table  containing  the 
current  tenninal  characteristics;  2.  altering  the  field  or  fields  in  the  table  which 
correspond  to  the  characteristics  you  wish  to  change,  and  3.  using  iSSetStt  to  write 
the  contents  of  the  altered  table  of  information  out  to  the  path  process  descriptor 
for  the  terminal. 


EQU  SS_OptO 

\ 

selector  used  with  ISGetStt  and  ISSetStt 

\ 

I/O  system  calls 

CODE  S«t_NaEcho  (  •  ) 

LEA 

•  12e(A7),A7 

\ 

allocate  a  128  byte  buffer  on  the  system  stack 

MOVEA.L 

A7,A0 

\ 

put  the  address  of  the  start  of  the  buffer  in  AO 

MOVEQ.L 

#0,00 

\ 

use  default  path 

MOVEQ.L 

«SS  Opt, 01 

\ 

‘read  in  path  descriptor  options'  selector 

OS9 

ISGetStt 

\ 

get  terminal  characteristics 

BCS 

BYE.ERHOR 

\ 

internal  MACH2  error  handling  routine 

MOVEA.L 

A7,A0 

\ 

put  start  addr  of  terminal  char,  table  in  AO 

MOVE.W 

4(AO),MODE(A6^ 

record  the  echo  and  linefeed  settings 

CLR.W 

4(A0) 

\ 

set  no  echo  and  no  linefeeds 

MOVEQ.L 

#0,00 

\ 

use  default  path 

MOVEQ.L 

#SS  Opt, 01 

\ 

‘write  path  descriptor  options'  selector 

OS9 

ISSelstt 

\ 

set  terminal  characteristics 

BCS 

BYE  ERROR 

\ 

Internal  MACH2  error  handling  routine 

LEA 

128(A7).A7 

\ 

de-allocate  the  stack  space 

RTS 

ENO-CQOE 
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CODE  R«Mt_NoEcho  (  •  ) 

LEA  •128(A7),A7  \  allocat*  a  128  byta  buffer  on  tha  systam  stack 

MOVEA.L  A7,  AO  \  put  the  address  of  the  start  of  the  buffer  in  AO 

MOVEQ.L  «0,00  \  use  default  path 

MOVEQ.L  #SS_Opt,Ol  \  'read  in  path  descriptor  options'  selector 
OS9  l$GatStt  \  get  terminal  characteristics 

BCS  @1  \  exit  if  error 

MOVEA.L  A7,A0  \  put  start  addr  of  terminal  char,  table  in  AO 

MOVE.W  MOOE(A6),4(AO>  restore  saved  echo  and  linefeed  settings 
MOVEQ.L  #0,00  \  use  default  path 

MOVEQ.L  #SS_Opt,Ol  \  'write  path  descriptor  options' selector 
O  S  9  I  $  S  e  t  S 1 1  \  set  terminal  characteristics 

@  1  LEA  1 28(A7), A7  \  de-aliocats  the  stack  space 

MOVE.W  #1  ,MOOE(A8)  \  -1  in  mode  means  'echo'  is  not  currently  altered 
RTS 

END-CODE 
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FILES 


FORTH  File  Handling  Words 

MACH2  contains  two  sets  of  file  handling  words.  One  set  of  words  is  comprised  of  the 
file  handling  words  built  into  the  FORTH  language  (BLOCK  ,  BUFFER  ,  VIRTUAL  , 

UPDATE  ,  SAVE-BUFFERS  ,  EMPTY-BUFFERS  .  LIST  .  LOAD  .  FLUSH).  Since  MACH2 
has  been  designed  to  edit  and  load  text  files,  as  opposed  to  block  files,  these  block- 
oriented  FORTH  file  handling  words  have  been  included  in  MACH2  only  to  maintain 
FORTH-83  compatibility.  All  of  these  FORTH  file  handling  words  are  found  in  the  FORTH 
vocabulary.  For  more  information  on  these  words,  refer  to  their  individual  glossary  pages. 

MACH2/OS-9  File  Handling  Words 

The  other  set  of  file  handling  words  contained  in  MACH2  are  designed  for  easy  interaction 
with  the  OS-9  Random  Block  RIe  Manager  (RBF).  These  are  the  words  which  will  be 
discussed  in  detail  below.  All  of  the  OS-9/MACH2  file  handling  words  are  located  in  the 
OS-9  vocabulary. 

Creating  Files 

The  word  SCREATE  is  used  to  aeate  and  open  new  files.  The  stack  notation  for  SCREATE 
is  shown  below: 

SCREATE  (  path-name  attributes  access-mode  -  path#  errorcode  ) 

'path-name'  should  be  the  address  of  a  null-terminated  string  which  contains  the  pathname 
to  be  uses  to  find  the  new  file,  ‘attributes'  is  a  value  which  determines  how  and  by  whom  the 
new  file  may  be  accessed  in  the  future;  it  defines  alt  the  possible  ways  the  file  may  be 
interacted  with  in  the  future,  'access-mode'  is  a  value  which  indicates  the  current  access 
pennission  desired;  it  indicates  how  we  would  currently  like  to  interact  with  the  file. 

The  table  below  shows  how  to  choose  the  values  used  for  the  attributes  parameter; 


Attribute  Bits  Set  this  UL.. 

with  IMS  value- 

to  permit  this  type  Of  access. 

0 

1 

owner  read  permit 

1 

2 

owner  write  permit 

0+1 

3 

owner  readAvrite  permit  (owner  update) 

2 

4 

execute  permit 

3 

8 

public  read  permit 

4 

16 

public  write  permit 

3+4 

24 

pt^lic  readAvrite  permit  (public  update) 

5 

32 

public  execute  permit 

6 

64 

non-sharable  file 
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Moda  Bits  Set  mis  ML. 

0 

1 

0+1 

2 

3 

4 

3+4 

5 

6 


wtthtNs  value.. 
1 
2 

3 

4 
8 

16 

24 

32 

64 


if  you  desire  mis  type  Of  access. 

raad 

write 

read/Write  (update) 
execute 


single>user 


The  example  below  shows  how  to  use  SCREATE  to  create  a  new  file  named  'MyFlle'  (which 
will  be  located  in  the  current  directory  since  no  additional  pathname  specifications  were 
included  with  the  filename),  which  may  be  read  from  or  written  to  by  anyone  and  will  be  opened 
in  a  read/write  rrxxle  for  current  access: 


ONLY  FORTH  DEFINITIONS 
ALSO  OS-9 

BINARY 

0000011  CONSTANT  OwnarR/W 

0011000  CONSTANT  PubllcR/W 

0000011  CONSTANT  RAAfMode 

DECIMAL 

”  MyFlle"  1+ 

OwnerR/W  PubllcR/W  + 
R/WMode 

SCREATE  ■(er>ak<2> 

.S  <er>  3  0  <-  TOP  ok  <2> 


\  OS-9  file  words  are  located  in  the  OS-9  voc. 

\  put  in  BINARY  base  for  readability 
\  set  bits  0  and  1  for  owner  read/write  access 
\  set  bits  3  and  4  for  public  read/write  access 
\  set  bits  0  and  1  for  read/write  access  mode 
\  return  to  DECIMAL  base 

\  add  1  to  file  name  address  to  skip  length  byte 
\  this  file  may  have  owner  r/w  and  public  r/w 
\  right  now  we  want  ihn  access 
\  create  the  fHe,  SCREATE  returns  2  values 

\  top  item  is  error  code,  second  is  path  number 


As  tho  example  shows,  SCREATE  will  return  two  values  on  the  stack.  The  top  item  will 
be  an  error  code.  If  the  error  code  is  0,  no  error  occurred.  If  the  error  code  is  non-zero 
it  is  an  OS-9  error  nuirtwr  (you  may  want  to  pass  the  error  code  to  the  70S9ERR0R 
error  handling  word,  described  in  the  next  section).  The  second  item,  if  no  error  occuned, 
will  be  a  path  number  since  SCREATE  will  leave  the  new  file  open.  The  path  number  is 
usually  required  by  all  OS-9  file  routines  which  operate  on  open  files.  A  path  number  is 
used  to  uniquely  identify  and  locate  an  open  file. 


Opening  Files 

SOPEN  is  used  to  open  files.  It  has  the  following  stack  notation: 

SOPEN  (  path-name  access-mode  -  path#  errorcode  ) 
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'path-name*  should  be  a  null-terminated  string  which  contains  the  path  specifications 
which  should  be  used  to  find  the  file  to  be  opened.  The  'access-nwde'  parameter  is  the 
same  parameter  described  in  the  SCREATE  discussion.  Here  is  an  example  use  of  $OPEN: 

"  MondayAVcrk_Flle”  1+  R/WMode  $OPEN  <cr>ok<2> 

.S  <cr>  4  0  <-  TOP  ok  <2> 

The  above  example  shows  how  a  file  named  'Work_Fila',  which  is  located  in  the  'Monday' 
directory,  could  be  opened  with  read/write  access  mode  pemn  -ssion.  $OPEN  returns  two 
values  on  the  stack.  The  top  value  is  an  error  code  an  the  second  value,  if  no  en'or  occurred, 
will  be  the  path  number  which  uniquely  identifies  the  open  file. 

Closing  Files 

To  close  a  file  use  SCLOSE.  $CLOSE  expects  to  be  passed  the  path  number  of  the  open 
file  it  is  to  close.  SCLOSE  will  return  an  error  code  on  the  parameter  stack.  Here  is  the  stack 
notation  for  SCLOSE,  and  an  example  showing  how  the  file  opened  above  could  be  closed: 

SCLOSE  (  path#  -  errorcode  ) 

4  SCLOSE  <cr>  0  ok  <0> 

Deleting  Files 

SOELETE  is  used  to  delete  files.  SOELETE  expects  to  be  pass  the  address  of  a  null- 
terminated  string  which  contains  the  pathname  used  to  locate  the  file  to  be  deleted. 

The  user  deleting  the  file  must  have  non-sharable  write  access  and  the  file  must  be  closed. 
The  access  mode  is  used  to  specify  the  data  or  execution  directory  (but  not  both)  in  the 
absence  of  of  a  full  pathlist.  If  the  access  mode  specified  is  read,  write,  or  update,  the 
current  data  directory  is  assumed.  If  the  execute  bit  is  set  in  the  access  mode  parameter, 
the  current  execution  directory  is  assumed.  Note  that  if  a  full  pathlist  is  given  (a  fun  pathlist 
begins  with  a '/'),  the  access  trxxfe  parameter  is  ignored.  The  stack  notation  tor  SDELETE 
and  an  example  of  its  use  are  shown  below; 

SOELETE  (  path-name  access-mode  -  errorcode  ) 

"  M.'^lle"  1+  R/WMode  SOELETE  .  <cr>  Ook<r> 
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WrHlng  Data  to  a  FI  la 

To  write  data  to  an  open  file  use  $WRITE.  SWRITE  should  be  passed  the  address  of  the 
buffer  where  the  data  to  be  written  resides,  the  number  of  bytes  which  should  be  written, 
and  the  path#  which  identifies  the  file  to  which  the  data  should  be  written.  SWRITE  will 
return  two  values  on  the  stack  when  it  has  finished.  The  number  on  top  of  the  stack  will 
be  an  error  code.  The  second  value  will  be  the  number  of  bytes  actually  written. 

The  file  to  be  written  to  must  have  been  opened  with  read/write  (update)  or  write  access 
mode  permission.  If  the  data  is  written  past  the  current  end-of-file,  the  file  will  automatically 
be  exparxfed.  The  stack  notation  for  SWRITE  and  an  example  of  its  use  are  shown  below: 

SWRITE  (  bufferaddr  len  path#  -  #byteswritten  errorcode  ) 

ONLY  FORTH  OEHNITIONS  <cr>ok<0> 

ALSO  OS-S  <er>  ok  <0> 

BINARY  <cr>  ok  <0> 

0000011  CONSTANT  OwnorR/W  <cf>ok<0> 

0000011  CONSTANT  R/WMode  <cr>  ok<0> 

DECIMAL  <er>  ok  <0> 

\  aeata  a  data  buffer  in  memory  and  fill  it  with  100  asterisks 
VARIABLE  DataBuHar  96  VALLOT  <cr>  ok  <0> 

OataBuffer  100  ASCII  *  FILL  <er>  ok  <0> 

\  create  a  file,  ask  for  road/write  access  mode, 

\  write  the  contents  of  the  data  buffer  out  to  the  file, 

\  and  close  the  file. 

"  MyFlle"  U  OwnerR/W  RAfVMade  SCREATE  .  .  <cr>0  3ok<0> 

OataBuffer  100  3  SWRITE  <cr>  0ok<0> 

3  SCLOSE  <cr>  0  ok  <0> 

\  now  we  will  use  the  OS-9  list'  command  from  within  MACH2  to 
\  verify  that  the  data  was  written  to  the  tile. 

S  UST  MyFlla  <«cr> . 


other  File  Handling  Words 

OS-9  provides  many  other  file  handling  words,  several  of  which  will  soon  be  added  to 
the  list  of  MACH2/OS-9  file  handling  words.  All  of  the  OS-9  file  handling  routines  are 
discussed  on  pages  15-1  through  15-26  in  the  OS-9/68000  Operating  System 
Technical  Manual. 

Using  the  OS-9  File  Calls  from  Assembly  Language 

The  following  code  definition  shows  how  the  ISRead  command  could  be  used  from 
assembly  language; 

CODE  $REAO  (  buffer-address  len  path*  -  ibytesread  errorcode  ) 


MOVE.L 

(AS)-*-, DO 

\  get  path  number 

MOVE.L 

(A5)*.D1 

\  get  #  bytes  to  read 

MOVEA.L 

(AS)-t-,A0 

\  get  address  of  buffer  where  data  should  be  put 

OSS 

ISRead 

V  read  the  data 

BCS.S 

(91 

\  error  if  carry  set 

MOVE.L 

D1.-(A5) 

\  #  bytes  actually  read  returned  in  Di 

CLR.L 

RTS 

-(AS) 

\  return  0  error  code 

®1CLR.L 

-(AS) 

\  error  occurred,  return  0  for  #bytesread 

EXT.L 

D1 

\  extend  the  word-length  error  returned 

MOVE.L 

RTS 

END-CODE 

D1.-(A5) 

\  place  errorcode  on  stack 
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70S9ERR0R  and  ERRORPATH 

The  words  70S9ERR0R  arxl  ERRORPATH  are  two  buitt-in  OS-9  error  handling  tools 
which  are  located  in  the  OS-9  vocabulary.  70S9ERR0R  expects  to  be  passed  an  error 
code  returned  by  an  OS-9  system  call.  If  the  error  code  indicates  that  an  error  has  occurred, 
70S9ERR0R  will  display  the  error  number  in  OS-9  format  {i.e.  Error  number  ffmmm.nnn). 

If  no  error  occurred,  70S9ERR0R  will  do  nothing.  Here  is  the  definition  of  70S9ERR0R: 

CODE  PrfntErr  (  n  -  ) 

MOVE.L  (A5)4-.01 
MOVE.L  ERRORPATH(A6),DO 
OS9  FSPErr 
RTS 

END-CODE 

:  70S9ERR0R  {  errorcoda  •  ) 

arrorcoda 
IF 

CR 

arrorcoda  PrfntErr 

ABORT 
THEN  ; 

The  OS-9  system  call  FSPErr  is  the  routine  which  actually  evaluates  the  error  code  and 
prints  an  error  message  if  required.  Note  that  70S9ERR0R  will  consume  the  error  code 
passed  to  it.  Here  is  ah  example  of  the  use  of  70S9ERR0R: 

ALSO  OS-9 

DECIMAL 

255  70S9ERR0R  <cr> 

Error  #000:255 

257  70S9ERR0R  <cr> 

Error  #001:001 

Bits  0-7  in  the  value  passed  to  FSPErr  will  be  used  for  the  error  number  on  the  right  of  the 
colon.  Bits  8-1 5  are  used  for  the  error  number  to  the  left  of  the  colon.  Error  numbers 
000:000  through  064:255  are  reserved  for  the  operating  system. 
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If  the  path  number  of  an  open  file  is  stored  in  ERRORPATH,  70S9ERR0R  will  search 
the  file  for  the  error  message  text  which  corresponds  to  the  error  code.  The  discussion 
of  F$PErr  on  page  14-25  of  the  OS-9/68000  Operating  System  Technical  Manual 
describes  the  format  an  error  message  file  must  have.  The  error  message  file  which 
corresponds  to  the  08-9  system  errors  is  called  ‘ErrMsg'  and  should  be  located  in 
your  'SYS'  directory.  The  following  example  shows  how  you  may  turn  on  ‘long  error 
message  reporting'  from  within  MACH2: 

ONLY  FORTH  DEFINITIONS  <cr>  ok  <0> 

ALSO  0S>9  <cr>  ok  <0> 

DECIMAL  <cr>  ok  <0> 

”  SYS/ErrMsg"  l-t-  3  SOPEN  .  <cr>0  3ok<0> 

3  ERRORPATH  I  <cr>ok<0> 

\  now,  type  some  gibberish  characters  after  the  t  word 
\  to  generate  an  error  message. 

$  ;AKDF;LKJAOF  <cr> 

Error  #000:21 6  (E$PNNF)  File  not  found. 

The  pathlist  does  not  lead  to  any  known  file. 
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EXCEPTION  HANDLING 

Each  OS-9  process  (or  task)  may  handle  the  basic  68000  exceptions  privately  if  so 
desired.  The  following  list  shows  the  68000  exception  errors  which  may  be  handled 
privately  by  a  task  (and  their  corresponding  offsets  into  the  68000  exception  vector  table): 

Offset  Exception  Error  Offset  Exception  Error 

$08  Bus  Error  $1 C  TRAPV  Instoiction 

$0C  Address  Error  $20  Privilege  Violation 

$10  Illegal  Instruction  $28  Line  1010  Emulator 

$14  Zero  Divide  $20  Line  1 1 1 1  Emulator 

$18  CHK  Instruction 

Handling  an  Exception  Error 

When  a  custom  exception  error  handling  routine  is  called,  the  68000  registers  will 
contain  the  following  information: 

D7.W  Exception  vector  offset 

A  0  Program  Counter  (PC)  value  when  exception  occumed. 

A 1  Stack  pointer  (SP)  value  when  exception  occuned. 

A  5  User's  register  stack  image  (00-07/AO-A6)  when 
exception  occurred. 

A  6  User's  primary  global  data  pointer. 

An  exception  vector  is  a  memory  location  from  which  the  68000  processor  will  fetch  the 
address  of  the  routine  which  will  handle  that  exception.  Exception  vectors  are  always 
located  in  a  table  which  resides  in  low  memory  (from  address  $0000  to  address  $03FF). 

The  contents  of  the  68000  exception  vectors  should  never  be  altered  directly.  Always  use 
the  methods  described  in  this  section  to  set  up  an  exception  handling  routine.  The  offset 
from  the  start  of  the  exception  vector  table  to  the  exception  currently  being  processed  will 
be  passed  to  an  exception  handling  routine  in  the  lower  word  of  the  D7  register. 

The  AO  register  will  usually  contain  the  value  which  was  in  the  program  counter  when 
the  exception  occurred.  The  program  counter  value  usually  points  to  the  next  unexecuted 
instruction,  however,  for  bus  and  address  error,  the  program  counter  value  is  unpredictable 
(see  page  40  of  the  Motorola  68000  Programmer's  Reference  Manual,  4th  Edition). 

All  user  register  values  (O0-O7.A0-A6)  at  the  time  of  the  exception  will  be  stacked  up  on 
the  AS  stack  when  the  exception  handler  is  called.  The  user's  stack  pointer  value  at  the 
time  of  the  exception  will  be  passed  to  the  exception  handler  in  the  Al  register.  This  gives 
the  exception  handling  routine  the  user's  complete  register  image  at  the  time  of  the 
exception.  The  first  action  of  a  custom  exception  handling  routine  should  be  to  restore 
the  user's  complete  register  image. 
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ExampI*  Exeaptlon  Handling  Routines 

Example  exception  error  handling  routines  for  an  ‘Address  error*  and  a  'Line  1010 
emulator  error*  are  shown  below.  Note  that  for  the  Line  lOlO  error  we  are  able  to  print 
out  information  about  the  PC  value  at  the  time  of  the  exception.  We  cannot  print  out 
PC  information  for  the  Address  error  because  the  PC  value  information  passed  to  the 
exception  handlirg  routine  will  not  be  valid  for  an  Address  error  exception.  Note  that 
both  routines  restore  the  user's  complete  register  set  before  proceeding; 


\  SSSSSSSSS3  Address  Error  ss=s=ssssss3ssssssss=s 

:  (addrus_error)  (  -  ) 

CfT 

Address  Error” 

CR 

ABORT 

CODE  addrsss_srror  (  ) 

MOVEA.L  A1,A7  \  restore  user  stack  pointer 

MOVEM.L  (AS),00-07/AO-A6  \  restore  user  registers 

(address_error)  \  caH  higher-leve  address  error 

ENO'COOE  \  exception  handling  routine 


\  assssssasa  Line  1010  Emulator  aaaaaaaaaaaaaaaaaaaaaaaaas 


:  (LInelOlO)  {  PC  |  otdbaae 
CR 

Line  1010  error  at  " 
BASE  9  •»  otdbase 
HEX  PC  . 
oldbase  BASE  I 
CR 

ABORT 

CODE  LlnelOlO  ( 

MOVEA.L 
MOVE.L 
MOVEM.L 
MOVE.L 
(LlnelOlO) 

ENO-COOE 


)  \  take  value  off  stack  and  place 
\  in  the  PC  named  input  parameter 
\  print  message 
\  save  current  BASE 
\  set  BASE  to  HEX,  print  PC  value 
\  restore  previous  BASE 


•  ) 

A1  ,A7  \  restore  user's  stack  pointer 

AO, '(AT)  \  save  PC  value  on  sytem  stack 

(AS),O0-O7/A0>A9  \  restore  user's  registers 
(A7)'»,>(A5)  \ place  saved  PC  value  on  param 

\  stack  and  pass  to  higher 
\  level  exception  handling  routine 
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Crsatlng  an  Excaption  Tabla 

In  order  to  let  OS-9  know  about  your  task's  custom  exception  handling  routines,  you 
must  create  an  'exception  table  (service  request  initialization  table).  Each  exception 
error  your  task  will  handle  in  a  custom  manner  should  have  an  entry  in  the  table.  Each 
entry  consists  of  2  words  (16  bits)  of  data.  The  first  word  should  be  the  exception 
vector  offset  for  the  exce^ion  and  the  second  word  should  contain  the  word-length 
offset  to  the  custom  exception  handling  routine  for  the  exception.  The  end  of  the 
table  must  be  marked  with  a  word-length  -1  value: 

HEADER  ExcpTbl 

OC.W  $00C,Addreas_Error-*-2  \  offset  to  Addrass_Error  routina 
OC.W  $028,Llna1010-*-2  \  offset  to  Linal 010  routine 

DC.W  -1  \artd  of  table 

NOTE:  In  the  Exception  Table  example  found  on  page  14-39  of  the  OS-9/68000 
Operating  System  Technical  Manual  a  4,  rather  than  the  2  shown  above,  is  subtracted 
in  the  calculation  of  the  word-length  offset  to  the  exception  handling  routine.  This 
discrepancy  is  due  to  current  deviations  between  the  MACH2  assembler  and  the  OS-9 
assembler  in  the  functioning  of  the  '*'  assembler  word. 

Installing  the  Exception  Table 

Once  the  custom  exception  handling  routines  have  been  written  and  the  exception  table 
has  been  created,  the  OS-9  user  mode  system  call  F$STrap  must  be  used  to  install  (let 
OS-9  know  about)  the  custom  exception  error  handling  routines: 

CODE  Inetall  (  -  f  ) 

LEA  ExcpTbl, A1 
MOVEQ.L  «0,00 
MOVEA.L  00, AO 
OS9  FSSTrap 
BCS.S  ®1 
MOVEQ.L  #0,01 
EXT.L  D1 
MOVE.L  01, -(A5) 

RTS 
ENO-COOE 

For  more  information  on  custom  exception  error  handling  refer  to  page  14-39  of  the 
OS-9/68000  Operating  System  Technical  Manual. 


\  pass  the  axcaption  tabla  addrass  in  A1 

\  usa  currant  stack  if  axcaption  occunt 
\  calling  FSSTrap 

\  if  carry  bit  sat,  anor  occurred,  ratum  coda 
\  no  error  occurred,  return  0  error  code 
\  extend  error  coda,  if  any 
\  place  error  coda  on  stack 
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INTER-PROCESS  COMMUNICATION:  SIGNALS 

OS-9  processes  (tasks)  may  communicate  with  each  other  by  passing  signal  codes. 

A  signal  code  is  a  word-len^h  (1 6-bit)  value.  Four  signal  code  values  have  predefined 
meanings: 


Symbol 

Value 

Signal  Meaning 

SSKill 

0 

System  abort  (unconditional) 

SSWake 

1 

Wake  up  process 

S$  Abort 

2 

Keyboard  abort 

SSIntrpt 

3 

Keyboard  interaipt 

256-65535 

User  defined 

An  Example  Signal  Intercept  Routine 

The  'Vector_Signar  routine  shown  below  is  the  signal  intercept  routine  used  by  MACH2. 
When  this  signal  intercept  routine  is  called,  it  will  be  passed  the  word-length  signal  code  in 
the  01  register  and  the  A6  register  will  hold  the  address  of  MACH2's  program  data  area. 
Normally,  an  intercept  routirte  is  terminated  with  the  FSRTE  system  call.  However, 
according  to  the  discussion  on  F$lcpt  (see  page  14-20  of  the  OS-9/68000  OS  Technical 
Manual),  the 'MOVEM.L'  and  ‘RTR‘ instructions  may  be  substituted  as  a  (aster  alternative. 

CODE  V«ctor_Slgnal  (  -  } 

EXT.L  01  \  signal  coda  is  in  Dl.W 

MOVE.L  01, -(AS)  \  piaca  coda  on  MACH2  stack 

MOVE.L  RESPONSE(A6),AO  \  gat  addrats  of  MACH2  signal  vactor 
•ISR  (AO)  \  axacuta  signal  routina 

MOVEM.L  (A7)>,D0-07/A0-A7  \  rastora  ragistars 

RTR  \  continu*  mainlin*  nteution 

END-COOE 


'Vector_Signar  is  the  assembly  language  interface  to  signal  reception  in  MACH2. 
'Vector_Signai'  pieces  the  signal  code  received  on  the  MACH2  parameter  stack  so  that  a 
higher  level  FORTH  routine  may  be  used  to  respond  to  the  signal.  After  the  higher  level 
routine  has  finished  execution.  'Vector_Signal‘  takes  care  of  'cleaning  up'  after  the  signal. 

RESPONSE 

RESPONSE  is  a  MACH2  system  variable  found  in  the  OS-9  vocabulary.  The  RESPONSE 
variable  is  used  to  hold  the  address  of  the  higher  level  FORTH  routine  to  be  used  to 
respond  to  signal  receptions.  Initially,  RESPONSE  holds  the  address  of  the  Handle.Signal' 
routine.  'Handle_Signar  is  the  default  routine  used  by  MACH2  to  respond  to  the  four  system 
defined  signals  listed  above.  The  'Handle_Signar  routine  is  shown  later  in  this  section. 
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Installing  a  Signal  Intarcapt  Routina 

The  FSIcpt  user  mode  system  call  is  used  to  tell  OS-9  where  the  current  process'  signal 
intercept  routine  is  located.  It  is  important  to  note  that  9  a  process  receives  a  signal  and 
it  does  not  have  a  signal  intercept  routine  installed,  the  process  will  be  aborted.  The 
'Vector_Signar  signal  intercept  routine  discussed  previously  is  automaticatiy  installed 
each  time  MACH2,  or  a  TURNKEY  application  (an  executable  tTxxlule)  aeated  by  MACH2, 
starts  up.Tha  CODE  definition  below  shows  the  signal  intercept  installation  routine  used 
to  install  the  ‘Vector_Signar  routine: 

CODE  Installjept  (  •  ) 

LEA  Vector_Slgnal,AO  \  pass  address  of  signal  intarcapt 

OSS  FSIcpt  \  routina  in  AO 

RTS 

END-CODE 


FSIcpt  is  passed  the  address  of  the  ‘Vector_Signar  routine  in  the  AO  register  and  the 
address  of  the  current  program's  data  area  in  the  A6  register.  The  current  program's  data 
area  address  is  already  in  the  A6  register  when  'Install^lcpt'  is  njn  so  the  set  up  of  the  A6 
register  is  not  explicitly  shown. 

MACH2*s  High  Level  FORTH  Signal  Handling  Routina 

'Handle.Sigrtar  is  the  FORTH  routine  used  by  MACH2  to  respond  to  the  four  system- 
defined  signals; 

A 

Keyboard  Interrupt  (  •  )  \  This  routina  handles 

CR  "  \  CONTROL  C  keyboard 

Keyboard  Interrupt  '*  '  Warrupta. 

CR 

ABORT  ; 


\  Standard.Signal  handles  signals  with  signal  codas  other 
\  than  0,  t ,  2. 3  by  printing  out  a  massage  followad  by  the 
\  signal  coda  itself. 


Standard_Slgnal  (  num 
BASE  9  ->  oldbasa 
DECIMAL 
CR 

Signal  racalvad;  »  " 
oldbasa  BASE  t 


I  oldbasa  •  } 

\  save  the  currant  base 
\  sal  the  base  to  DECIMAL 

num  .  \  print  the  signal  number  racaivad 
\  restore  the  old  base 
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Handle.SIgnal 

{  Id  -  1 

Id 

CASE 

0  OF 

BYE 

ENDOF 

1  OF 

ENDOF 

2  OF 

BYE 

ENOOF 

3  OF 

Kayboardjntarrupt 

ENDOF 

Id  Standard_Slgnal 

ENDCASE  ; 


\  handl*  system  abort 
\  this  signal  is  never  received 
\  handle  keyboard  abort 
\  handle  keyboard  interrupt 
\  handle  user  defined  signal 


Intercept  (  -  ) 

[1  Handle.SIgnal  RESPONSE 

Inatall.lcpt  ; 


\  Signal  handling  is  vectored 
\  through  the  variable 
\  •RESPONSE'. 


Intercept'  is  a  high  level  version  of  the  routine  MACH2  runs  upon  start  up  to  set  up  its 
own  signal  intercept  handling. 


A  Custom  Signal  Handling  Routine 

The  code  examples  below  show  how  a  custom  signal  handling  routine  could  be 
written  and  installed.  Note  that  once  this  custom  routine  is  installed,  it  will  supersede 
the  MACH2  signal  handling  routine  used  to  respond  to  system  defined  signals  (system 
abort,  keyboard  interrupt,  and  keyboard  abort).  Normally,  a  custom  signal  handling 
routine  should  also  handle  the  four  system  defined  signals; 


ONLY  FORTH  DEFINITIONS 

ALSO  OS-9 

DECIMAL 

Catch  Signal  (  coda 
CR 

Signal  " 
coda 

CASE 

•  1 

300  OF 

three  hundreCNDOF 

400  OF 

four  hundred  ENDOF 

500  OF 

five  hundred  ENOOF 

000  OF 

six  hundred  'ENDOF 

DROP."  unknown" 

ENDCASE  ; 

Inatall.SHandlar  (  • 

) 

[1  Catch.SIgnal  RESPONSE  !  ; 
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Sending  Signals 

To  send  a  signal  use  the  F$Send  user  nx)de  system  call  (see  page  14-29  of  the 
OS-9/68000  OS  Technical  Manual).  F$Send  expects  to  be  passed  the  intended 
receiver's  process  lO  and  the  signal  code  to  send.  The  following  example  shows 
how  a  process  can  send  a  signal  to  itself.  Before  a  process  may  send  a  signal  to 
itself  it  must  use  the  FetchlO'  routine  to  find  its  process  ID  number 


CODE  FetchlO 
OS9 

{  -  n  ) 
F$ID 

\ 

gat  the  caller's  process  ID 

BCS.S 

@1 

\ 

if  error,  go  to  @1 

EXT.L 

DO 

\ 

extend  the  word-length  process  10 

MOVE.L 

DO, -(AS) 

\ 

put  process  ID  on  parameter  stack 

MOVEQ.L 

«0,01 

\ 

put  a  0  (a  no  error)  in  D1 

(3>1  EXT.L 

D1 

\ 

if  an  error  was  returned,  extend  it 

MOVE.L 

OI.-(AS) 

\ 

and  place  it  on  the  stack 

70S9ERR0R 

\ 

70S9ERR0R  will  take  the  error  code 

RTS 

\ 

off  the  stack,  examine  it,  and  abort 

END-CODE 

\ 

if  non-zero  (sea  error  handling  section) 

CODE  Sand  ( 
FatchID 

n  -  ) 

\ 

get  the  process  ID  for  this  process 

MOVE.L 

(AS).»,D0 

\ 

take  the  process  ID  off  the  stack 

MOVE.L 

(A5)>,01 

\ 

take  the  signal  code  off  the  stack 

OS9 

F$Sand 

\ 

send  the  signal  cods  to  this  process 

BCS.S 

®1 

\ 

if  error,  go  to  @1 

MOVEQ.L 

eo.oi 

\ 

assume  no  error  (>0) 

@1  EXT.L 

01 

\ 

extend  error  code,  if  any 

MOVE.L 

01. -(AS) 

\ 

place  error  code  on  stack 

70S9ERR0R 

RTS 

ENO-COOE 


\  and  pass  it  to  70S9ERR0R  for  axamination 


Now,  after  'InstalLSHandler  is  used  to  install  our  custom  signal  handling  routine,  we  can 
try  sending  a  signal  to  our  process: 

lnstall_SHandler  «cr>  \  install  custom  signal  handling  routina 

400  Sand  <cr>  \  sand  signal  •  400  to  our  process 

Signal  four  hurtdrad  ok  <0> 

9  Sand  <cr>  \  sand  sign^  #  5  to  our  process 

Signal  unknown  ok<0> 
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PROCESS  PARAMETER  PASSING 

Each  time  a  new  process  is  created  in  OS-9  (for  example,  by  typing  the  name  of  an 
executable  module  from  the  shell)  a  string  of  parameters  may  be  passed  to  the  process. 

For  example,  when  MACH2  is  started  up  you  have  the  option  of  passing  an  additional 
parameter  to  MACH2  which  specifies  the  memory  size  which  should  be  allocated  for 
the  user's  code  space; 

$  MACH2  -$45000 

MACH2*s  first  action  upon  start  up  is  to  parse  the  parameter  string,  if  any,  and  look  for 
valid  input  parameters. 

PARAM_PTR 

The  MACH2  word  PARAM_PTR,  located  in  the  OS-9  vocabulary,  is  included  so  that 
user's  may  incorporate  process  parameter  passing  into  their  own  executable  (TURNKEY) 
modules.  PARAM_PTR  will  return  the  address  of  the  null-terminated  parameter  input  string 
passed  to  a  process  when  the  process  was  started. 

A  Parameter  Passing  Example 

The  example  on  the  following  pages  shows  how  to  create  a  simple  TURNKEY  application 
(an  executable  module)  called  'Parser'  which  expects  to  be  passed  one  numerical  input 
(decimal  or  hexadecimal).  The  numerical  input  should  be  immediately  preceded  by  a  hyphen. 
The  first  action  performed  by  'Scan',  the  highest  level  word  in  the  program,  is  to  use 
PARAM.PTR  to  get  the  address  of  the  parameter  string  passed  to  'Parser.  'Scan'  passes 
the  address  of  the  input  parameter  string  to  'Analyze'  for  parsing.  'Analyze'  wilt  return  a 
flag,  indicating  whether  a  valid  input  was  found,  and  the  input  value.  If  a  valid  input  was 
found  'Scan'  will  print  the  value  out  and  terminate  by  exiting  to  the  OS-9  shell.  Otherwise, 
'Scan'  will  print  out  an  error  message  and  exit  to  the  OS-9  shell. 

Additional  Information 

For  more  technical  information  on  process  parameter  passing  see  the  discussion  of  F$Fork 
on  pages  14-14  and  14-15  of  the  OS-9/68000  Operating  System  Technical  Manual. 

For  more  discussion  on  the  format  of  an  OS-9  command  line  see  the  discussion  on  pages 
5-2  and  5-3  of  the  OS-9  Operating  System  User's  Manual. 
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Parameter  Parser 


\ 

ONLY  FORTH  DEFINITIONS 
ALSO  OS-9 

DECIMAL 

\  'Analyza'  will  return  a  flag  indicating  whether  the  input  string  contains  a  valid 
\  input,  i.e.  a  hypan  followed  by  a  valid  number.  A  “S'  character  may  be  used 
\  to  indicate  a  hexadecimal  number. 

\  'Analyze'  will  return  a  true  (-1 )  flag  on  top  of  the  stack  if  a  valid  input  is  found. 

\  A  false  (0)  flag  will  be  returned  otherwise.  The  second  number  on  the  stack 
\  will  either  be  the  number,  if  valid,  or  a  zero. 

;  Analyze  {  addr  |  char  •  n  f  } 

\  mm  Strip  leading  spaces  — 

BEGIN 

addr  C&  •>  char 
1  ♦>  addr 

char  ASCII  -  a  \  search  until  ekhar  a '-' or  a 

char  Oa  \  null  character  is  found 

OR 
UNTIL 

char 

IF 

\  check  for  the '-$4500' case 
C&  ASCII  $  a 

HEX 

DECIMAL 

•1  *»  addr  \  back  up  addr  to  point  to  hyphen 

\  addr  must  point  one  character  before  the  numeric  portion  of 
\  the  string.  Examples: 

\  -$340  -1234 

\  A  A 

addr  NUMBER? 

ELSE 
0  0 
THEN  ; 


\  NUMBER?  leaves  flag  and  value 
\  see  NUMBER?  glossary  page. 

\  no  parameter  string,  leave  false 
\  flag  and  zero  value. 


addr 

IF 

ELSE 

THEN 
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\  'Scan'  ia  an  exampla  utility  that  may  b«  usad  to  analyza  tha  paramater  string 
\  passad  to  an  OS-9  axacutabla  modula. 

Scan  {  I  flag  num  } 

CR 

PARAM.PTR  Analyze 
•>  flag 
->  num 

flag 
IF 


ELSE 

THEN 
CR 
BYE 

CR 

.(  TURNKEY  Scan  Parser  ) 

Executing  the  ‘Parser*  Example  Application  Module 

After  you  have  loaded  the  ‘Parser*  example  program  into  MACH2  and  used  TURNKEY 
to  create  the  executable  ‘Parser*  module,  ‘Parser*  could  be  used  from  the  OS-9  Shell 
as  follows; 

$  Parser  -1234 

Parameter  data  ;  1234 

$  Parser  *$2000 
Parameter  data  ;  4096 

$  Parser 

No  input  data. 

$ 


DECIMAL 

Parameter  data  :  num 

.**  No  Input  data.  “ 
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OS-9  TRAP  MODULES 

Trap  modules  (trap  handlers)  are  independent  code  modules  which  may  be  created 
by  any  language  that  compiles  to  machine  code  (FORTH,  assembly.  C).  MACH2  has 
facilities  for  the  creation  of  two  types  of  trap  modules:  ‘MACH’  format  trap  modules  and 
■generic'  trap  modules.  'MACH'  format  modules  are  designed  to  be  'called'  by  MACH2 
or  a  program  created  using  MACH2.  'Generic'  trap  modules  may  be  called  by  a  program 
written  in  any  language. 

Why  Use  Trap  Modules  7 

One  reason  is  that  trap  modules  allow  sections  of  infrequently  used  code  (device 
initialization  routines,  etc.)  or  general  purpose  code  (a  set  of  functionally  related  routines 
which  may  be  used  by  many  programs)  to  be  removed  from  the  main  program  to  reduce 
the  amount  of  execution  memory  required  by  the  program.  When  the  code  in  the  trap 
module  is  needed,  the  main  program  can  'cair  the  trap  module.  The  trap  module  will  be 
loaded  into  memory,  if  necessary,  and  executed.  When  the  trap  module  has  finished 
execution  the  main  program  can  'unload'  the  trap  module  (remove  it  from  memory). 

Arwther  reason  is  that  the  use  of  trap  modules  allows  for  parallel  program  development. 
One  programmer  can  work  on  the  main  program  while  one  or  more  other  programmers 
work  on  trap  module  code.Since  trap  modules  are  independent  code  modules,  they 
may  be  independently  and  individually  tested  arxl  executed. 

MACH2's  'generic'  format  trap  modules  allow  for  parallel  program  development  AND 
multi-language  program  deveiopment !  For  example,  in  a  large  industrial  control  project, 
the  control  engineers  could  use  FORTRAN  to  develop  their  control  algorithms  and  the 
hardware  engineers  could  use  FORTH  to  bring  up  the  system  hardware  and  to  write 
and  test  the  required  device  driver  trap  modules.  The  development  of  the  device 
drivers  would  not  be  held  up  by  the  development  of  the  main  program  or  vice  versa 
and  the  control  engineers  could  perform  system  integration  tests  with  thr  device 
driver  trap  modules  at  their  own  convenience. 

Organization  of  This  Section 

The  first  part  of  this  trap  module  discussion  centers  on  the  creation  and  use  of  'MACH' 
format  trap  modules.  The  code  for  an  example  'MACH'  format  trap  module  is  presented 
and  discussed.  The  second  part  of  this  section  describes  the  creat'on  arxl  use  of 
generic'  forniat  trap  modules.  An  extensive  example  which  demonstrates  how  a 
generic'  trap  module  may  be  called  from  an  OS-9  C  program  is  presented.  The  MACH2 
program  listing  for  the  'generic'  trap  module  and  the  OS-9  C  listing  for  the  'main  program' 
which  calls  the  trap  module  are  both  included. 

Many  assembly  language  examples  have  also  been  provided  for  those  programmers  who 
wish  to  gain  an  in-depth  understanding  of  the  OS-9  user  trap  hatxller  mechanism. 
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’MACH’  FORMAT  TRAP  MODULES 


A  ’MACK  format  trap  morale  is  a  trap  module  which  may  be  called  only  from  within 
MACH2  or  by  an  executable  nKxfule  (TURNKEY  application)  created  by  MACH2. 

The  reason  for  this  requirement  is  that  during  execution,  a  'MACH'  format  trap  module 
will  assume  that  the  A6  register  points  to  a  valid  'MACH2'  data  area.  Since  many  MACH2 
kernel  words  are  accessed  via  a  jump  table  located  in  MACH2's  data  area,  and  many 
MACH2  words  reference  system  variables  located  in  the  MACH2  variable  space  (which, 
is  also  located  in  the  MACH2  data  area),  this  assumption  allows  a  'MACH'  format  trap 
module  to  use  any  word  in  the  MACH2  kernel.  A  'MACH'  trap  module  also  assumes 
that  it  may  use  the  parameter  stack  to  pass  parameters  between  itself  and  the  calling 
program. 

Creating  a  'MACH'  FormatTrap  Module 

To  create  a  'MACH'  format  trap  module,  use  the  word  'MACHMODULE' : 

MACHMOOULE  <maln  word>  <module  name> 

MACHMODULE  Should  be  used  after  the  code  to  be  placed  in  the  module  has  been 
loaded  into  memory.  <main  word>  is  the  word  which  will  be  tun  when  the  trap  module  is 
later  accessed.  <module  name>  is  the  name  for  the  rrxx^le. 

When  MACHMOOULE  is  executed,  MACH2  takes  all  code  in  the  user's  code  area, 
appends  some  initialization  code,  and  writes  it  all  out  to  a  new  trap  module  with  the  given 
name.  After  MACHMOOULE  has  completed  execution,  it  will  exit  MACH2  and  return  to 
the  OS-9  shell.  The  new  trap  module  will  be  located  in  the  current  execution  directory. 

The  <maln  word> 

The  <main  word>  in  the  trap  module  will  be  called  via  a  'JSR'  instruction  when  the  trap 
module  is  executed  (described  in  more  detail  later  in  this  section).  A  single  selector  value 
will  be  passed  to  the  <main  word>  on  the  parameter  stack.  The  <main  word>  may  or  may 
not  return  parameters  to  the  calling  program  on  the  parameter  stack.  Thus,  the  <main  word> 
should  have  at  least  the  following  stack  notation: 

<maln  word>  (  selector  •  ) 
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An  Exampi*  'MACH*  Format  Trap  Modula 

The  code  for  an  example  'MACH'  format  trap  module  is  shown  below.  This  simple 
program  will  analyze  the  selector  value  passed  to  it  and  print  the  corresponding  string 
before  returning  to  the  calling  program.  After  the  program  has  been  loaded, 
MACHMOOULE  is  used  to  turn  the  code  into  a  trap  module  named  'NumModule': 

3  CONSTANT  Three 
2  CONSTANT  TWO 
1  CONSTANT  One 

:  DoThree  {  -  )  Three "  CR  ; 

:  DoTwo  (  -  )  Two "  CR  ; 

:  OoOne  (  -  )  One "  CR  ; 

\  PrintNums  is  the  <main  word>  for  this  trap  modula. 

PrlntNume  (  selector  •  ) 

CASE 

One  OF  OoOne  ENOOF 

Two  OF  OoTwo  ENOOF 

Three  OF  OoThree  ENOOF 

ENOCASE  ; 

\  Now  we  wil  create  the  trap  module 
MACHMOOULE  PrintNums  NumModule 


Assigning  a  Trap  Modula  to  a  Trap  Vector 

The  code  in  trap  modules  is  accessed  throught  one  of  16  software  trap  exception  vectors 
provided  by  the  68000  microprocessor.  The  table  shows  which  trap  vectors  are  resenred 
and  which  trap  vectors  are  avaUable  for  use  by  trap  modules: 

Vector  NumbeiUse 

0  Used  by  OS-9  for  system  calls. 

1-12  Available  for  trap  module  use. 

1 3  Used  by  'C  for  I/O.  Used  by  MACH2  for  its  disassembler/debuggsr. 

14,15  Used  by  the  OS-9  math  packages. 

To  access  a  trap  module  from  within  MACH2  you  trust  first  let  MACH2,  and  OS-9,  know 
which  software  exception  vector  should  be  used  to  access  the  module,  you  must  'assign' 
a  trap  vector  number  to  the  trap  module: 

5  CONSTANT  NumTrap 

**  NumModule”  l-f  NumTrap  ASSIGNMODULE 
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ASSIGNMODULE  is  the  MACH2  word  used  to  assign  software  exception  vectors  to  trap 
modules.  ASSIGNMODULE  expects  to  be  passed  the  address  of  a  null-terminated 
string  which  contains  the  module  name  and  the  number  of  the  vector  you  wish  to  assign 
to  the  trap  module. 

The  word ' ' '  lays  a  string  into  memory  which  has  both  a  leading  count  byte  and  a  trailing 
null  byte.  Since '  * '  returns  the  address  of  the  count  byte,  a '  l-»-  ‘  is  used  to  index  over 
the  count  byte  so  that  the  address  points  directly  at  the  start  of  a  null-terminated  string 
(see  the ' "  ■  glossary  page). 

In  the  example,  software  exception  vector  #5  was  assigned  to  the  newly  created  trap 
module.  The  CONSTANT  NumTrap  was  used  for  readability. 

Calling  the  Trap  Module 

Now  that  a  trap  module  has  been  created  and  assigned  a  software  vector,  the  module 
may  be  called: 

:  OneStrIng  (  -  )  TCALL  NumTrap.l  : 

:  TwoStrIng  (  •  )  TCALL  NumTrap, 2  ; 

>,  :  ThreeStrIng  (  •  )  TCALL  NumTrap, 3  ; 

\  Now  lefs  call  the  module  ... 

OneStrIng  <cr>  One 
ok  <o> 


The  MACH2  word  TCALL'  is  used  to  call  trap  modules.  TCALL  may  be  compiled  or 
used  interactively  for  testing  purposes.  TCALL  is  used  in  the  following  format: 

TCALL  <vector«>,<seleetor> 

The  word  'OneString'  was  used  above  to  call  the  trap  module  assigned  to  vector  #5 
(our  'NumModule'  trap  nwdule)  with  a  selector  of  1  (which  caused  NumModuie  to  print 
out  the  *One’  string).  The  selector  is  the  number  which  is  passed  to  the  trap  module 
on  top  of  the  stack.  The  selector  value  must  be  in  the  range  ±32767. 

Note  that  TCALL  is  actually  a  MACH2  assembler  word.  The  definition  'OneString'  above 
could  also  have  been  written  in  assembly  language: 

CODE  OneString  (  •  ) 

TCALL  NumTrap,1 
RTS 

END-CODE 
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Low-l«v«l  'MACH'  Format  Trap  Modulo  Information 

The  following  information  on  'MACK  format  trap  modules  is  for  those  who  wish  to  learn 
how  'MACK  format  trap  modules  are  implemented  at  the  OS-9  system  call  level. 


'MACH'  Format  Trap  Initialization  Coda 

When  MACH2  creates  a  'MACK  trap  module,  it  installs  the  following  initiaiization  code: 


malnword 
CODE  InItModula  ( 


MOVEA.L 

(A7),A6 

\ 

Line  1 

MOVED. L 

«o,oo 

\ 

Line  2 

MOVE.W 

4(A7),O0 

\ 

Line  3 

MOVE.L 

DO, -(AS) 

\ 

Line  4 

JSR 

malnword 

\ 

Lines 

MOVEM.L 

RTS 

(A7)4-,A6-A7 

\ 

Lines 

^  module  code 
^  initialization  code 


END-CODE 


When  a  trap  handler  is  called,  the  system  stack  contains  the  following  information: 


•^8 

caller's  return  PC 

(4  bytes ) 

••■6 

vector  number 

(2  bytes) 

-^4 

selector 

(2  bytes) 

_ 

caller's  A6  register  (4 bytes) 

The  instruction  in  Line  3  attove  indexes  4  bytes  into  the  stack  frame  to  get  the  2-byte 
selector  passed  to  the  trap  module  by  the  calling  program.  In  Line  4  the  selector  is 
placed  on  the  parameter  stack  (MACH2  uses  the  AS  register  to  maintain  its  parameter 
stack)  and  then  in  Line  5,  a  'JSR'  to  the  <main  word>  in  the  trap  module  is  performed. 

The  instruction  in  Line  6  is  used  often  in  the  OS-9  examples  to  reset  the  A6  register, 
reclaim  stack  space  (the  selector  and  vector  number  space),  and  set  up  the  A7  register 
(to  point  at  the  caller's  return  PC)  in  one  operation.  The  action  relies  heavily  upon  an 
internal  characteristic  of  the  'MOVEM'instnjction.  The  source  addressing  rTx>de  overrides 
the  destination  mode  in  register  assignment.  The  instruction  'MOVEM.L  (A7)-t-.A6-A7 
will  leave  the  A7  register  pointing  at  the  'caller's  return  PC',  regardless  of  the  data  moved 
into  the  A7  register. 
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Assembly  Language  Definition  of  ASSIGNMODULE 


The  assembly  language  definition  of  ASSIGNMODULE  is  shown  below.  MACH2  keeps 
an  internal  table,  named  (for  demonstration  purposes)  ‘MOOULE.TABLE’,  of  16  4-byte 
iocations  in  memory.  The  sixteen  locations  corresportd  to  the  software  exception  vectors 
0-15.  Each  location  contains  either  a  0  (if  the  corresponding  vector  is  unassigned)  or  the 
address  of  the  name  string  for  the  trap  module  assigned  to  the  vector. 


\  Allocate  variable  space  fori  6  lortg  addresses 
DECIMAL 

VARIABLE  MODULE  TABLE 
15  4  *  VALLOT 

CODE  ASSIGNMODULE  (an-  ) 

MOVE.L  (A5)4,D0 
ANDI.W  «$F,D0 

ASL.W  #2, DO  \4* 

LEA  MODULE_TABLE(A6).AO 

MOVE.L  (AS)-»,0(A0,O0.W)  \  Store  address 

RTS 

END-CODE 


You  will  see  in  the  'Reading  a  Trap  Module  into  Memory*  discussion  below  that  if  MACH2 
is  asked  to  call  a  module  using  a  vector  which  does  not  have  a  valid  name  string  address 
in  the  MOOULE_TABLE  that  an  error  condition  will  occur. 


Reading  a  Trap  Module  Into  Memory 


The  first  time  a  trap  module  is  accessed,  special  initialization  actions  must  be  performed. 
The  assembly  language  routine  shown  on  the  following  page  is  used  by  MACH2  to  handie 
the  first-time  access  of  a  trap  module.  This  routine  is  based  on  *he  OS-9  example  found  on 
page  1 1-4  of  the  OS-9/68000  Operating  System  Technical  Manual. 


The  first  action  performed  by  TRAPINIT  is  to  extract  the  vector  number  from  the  stack  frame 
of  information  passed  on  the  system  stack  and  to  use  the  vector  number  to  index  into 
MACH2*s  MOOULE.TABLE  to  firxl  the  trap  module  name  which  has  been  assigned  to 
the  vector  (with  the  use  of  ASSIGNMODULE,  as  described  earlier).  If  a  name  has  not  been 
assigned  to  the  vector,  MACH2  will  issue  an  error  message. 
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Next,  the  OS-9  routine  FSTLink  (page  14-44  in  the  OS-9/68000  OS  Technical  Manual) 
is  used  to  read  the  trap  module  into  memory  (it  it  has  not  already  been  read  into  memory 
by  another  program)  and  to  initialize  static  storage  for  the  trap  handler  if  required.  If  a 
module  with  the  specified  name  is  not  found  MACH2  will  display  a  '<module  name> 
missing'  error  message. 

At  this  point  the  trxxJule  has  been  properly  initialized.  The  program  counter  is  backed 
up  so  that  it  points  once  again  to  the  original  TCALL'  instnjction.  The  'TCALL'  instaiction 
is  re-run  and,  since  the  module  is  now  available  in  memory,  the  trap  module-NOT  the 
TRAPINIT  code-is  executed. 

\  Installs  trap  handler,  and  then  executes  the  first  trap  call. 


CODE  TRAPINIT  (  -  ) 


MOVEM.L 

O0-O1/AO*A2,-(A7) 

\  save  registers  used 

MOVE.W 

26(A7),O0 

\  fetch  vector  ID 

SUBI.W 

«$80,00 

\  remove  TRAP  #0  offset 

LEA 

MOOULE_TABLE(A6),AO 

MOVEA.L 

0(A0,O0.W),A0 

\  string  address 

TST.B 

(AO) 

\  check  for  null  string 

BEQ 

(^BadTrap 

MOVE.L 

A0,-(A7) 

\  save  name  in  case  of  error 

LSR.W 

«2,00 

\  User  Trap  Number 

MOVEQ.L 

«0,O1 

\  no  optional  memory  override 

OS9 

FSTLink 

\  read  module  irto  memory 

BCS.S 

^ModulaMisslng 

AOOQ.L 

ni4,A7 

\  throw  away  module  name 

MOVEM.L 

(A7)4-,00-01/AO-A2 

\  restore  registers 

AOOQ.L 

«8,A7 

\  discard  excess  stack  info 

SUBO.L 

#4,(A7) 

\  back  up  over  trap  instnxrtion 

RTS 

\  and  selector 

\  A  vector  has  not  been  assigned  to  this  module. 

^BadTrap 

\  error  handling  not  shown 

\  The  specified  module  name  was  not  found. 

^ModulaMlssIng 

ENO-COOE 
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•GENERIC*  FORMAT  TRAP  MODULES 

A  'generic*  format  trap  module  is  a  trap  module  aeated  by  MACH2  which  may  be  caBed 
by  a  program  written  in  any  language.  A  'generic'  format  trap  module  may  be  called 
from  other  languages  because  it  does  not  make  any  assumptions  about  the  register 
usage  or  parameter  passing  techniques  of  the  calling  program.  Since  a  'generic'  trap 
module  cannot  assume  that  the  A6  register  points  to  a  valid  MACH2  data  area,  it  can 
only  use  a  subset  of  the  available  MACH2  kernel  words.  During  execution,  a  'generic' 
format  trap  module  can  make  full  use  of  the  MACH2  stacks  (an  initialization  routine  will 
set  them  up  for  the  module)  but  the  stacks  cannot  be  used  to  pass  parameters  back 
to  the  calling  program. 


Words  Which  May  Be  Used  In  a  'Generic'  Format  Trap  Module 

The  lists  below  contain  alt  of  the  MACH2  words  which  may  be  compiled  into  a  'generic' 
format  trap  module  program.  All  of  the  program  control  staicture  words,  all  of  the  words 
relating  to  local  variables,  and  most  of  the  arithmetic  and  stack  manipulatbn  words  are 
included  in  the  list.  These  types  of  words  are  either  immediate  compiling  words  which 
generate  machine  code  when  they  are  compiled  (IF...THEN ,  [*] .  etc.),  or  they  are  MACH 
words  whose  code  is  laid  in  line  during  compilation  {CQ ,  0- .  ,  etc.).  These  words  are 

acceptable  for  use  in  a  'generic'  trap  handler  module  program  because  they  do  not  use 
internal  MACH2  system  variables(variables  are  A6  dependent)  and  they  do  not 
generate  MACH2  kernel  references  (the  jump  table  is  A6  dependent).  All  MACH2 
assembler  words  may  also  be  used.  Note  that  the  MACH2  floating  point  words  and 
the  MACH2/OS-9  file  words  are  not  included  in  the  list  because  they  would  generate 
jump  table  references  when  compiled. 
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A  MAKEMOOULE  Utility  Command 

VERBOSE  is  a  MACH2  system  variable  used  to  control  compilation  error  messages. 
When  the  VERBOSE  variable  contains  a  negative  value,  any  compiled  references 
to  words  which  are  not  allowed  in  a  'generic'  trap  module  will  be  flawed  during 
loading: 


•1  VERBOSE  !  <cr> 

:  Test  {  -  )  CONVERT  ;  •<ef>  CONVERT  may  not  b«  used  by  MAKEMOOULE. 

Since  VERBOSE  was  holding  a  negative  value,  the  compiler  was  watching  out  (or  compiled 
references  to  words  which  are  invalid  in  a  'generic'  trap  module.  Note  that  although 
CONVERT  was  flagged  as  being  an  invalid  reference,  the  loading  process  was  not  aborted. 

Creating  a  Generic  Trap  Module 

The  process  of  creating  a  generic  MACH2  trap  module  is  very  similar  to  the  process 
used  to  create  a  MACH2  format  MACH2  trap  module.  The  only  difference  is  that  the 
word  MAKEMOOULE  (instead  of  MACHMOOULE)  is  used  to  create  generic  MACH2 
trap  modules: 

MAKEMOOULE  <rrtainword>  <modulename> 

MAKEMOOULE  Should  be  used  after  the  program  to  be  njn  by  the  generic  trap  module 
has  been  loaded  into  the  MACH2  environment.  <mainword>  is  the  word  which  will  be 
executed  when  the  trap  module  is  'called*.  <nwdulename>  is  the  name  OS-9  will  use 
to  identify  the  trap  module.  When  MAKEMOOULE  is  executed  it  will  create  a  generic, 
trap  module,  append  some  initialization  code,  and  exit  to  the  OS-9  shell. 
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An  Example  'Ganaric'  Trap  Modula 

A  listing  of  a  program  to  be  turned  into  a  'generic'  trap  module  is  shown  below.  The  program 
creates  a  device-specific  driver  module  that  simulates  the  polling  of  three  analog-to-digital 
devices.  Since  the  FORTH  language  is  especially  suited  for  machine  and  device  control, 
the  MACH2  system  should  be  especially  useful  for  the  creation  of  low-level,  generic.  OS-9 
device  driver  modules.  On  the  other  hand,  the  MACH2  system  might  not  be  as  suitable  for 
the  creation  of  generic  I/O  trap  modules  since  none  of  the  MACH2  I/O  words  are  allowed  in 
a  'generic'  trap  module. 


\  Program  listing  for  ganaric  trap  modula. 

1  CONSTANT  A/DI  \  salactor  valuator davica 'A/01' 

2  CONSTANT  A/02  \  salactor  valua  tor  davica 'A/02' 

3  CONSTANT  A/03  \  salactor  valua  for  davica  'A/03' 

\  Thasa  words  simulata  tfw  rasponsas  of  tha  A/0  davicas. 

V  For  damonstration  purposas,  constant  valuas  ara  ratumad. 

RaadA/Ol  (  -  n  )  123  ;  \  davica 'AZOV  always  ratums  123 

RaadA/02  (  •  n  )  456  ;  \  davica  'A/02‘  always  ratums  456 

RaadA/03  (  -  n  )  789  ;  \  davica  'A/03'  always  ratums  789 

\  'Main'  is  tha  main  word  in  this  trap  modula.  This  trap  modula  is  simulating  a  drrvar 
\  which  takas  raading  from  ona  of  thraa  analog-to-digital  davicas.  Tha  valua  raad 
\  is  ratumad  in  tha  00  ragistar. 


Main  (  frama  salactor  | 

data 

-  » 

selector 

CASE 

\  check  tha  salactor. 

A/O0F 

RaadA/Ol 

•> 

data 

ENOOF 

\  and  taka  a  reading. 

A/OOP 

RaadA/02 

data 

ENDOF 

A/OOF 
0  •> 

RoadA/03 

data 

-> 

data 

ENOOF 

ENDCASE 

data  frama  !  ;  \  sava  tha  data  into  00  (the  00  ragistar 

\  is  the  lop'  ona  in  the  stack  frame. 

\  Now  this  file  may  be  loaded  into  MACH2.  Attar  tha  loading  process  has  complatad,  use 
\  MAKEMOOULE  to  create  tha  trap  modula  which  will  contain  this  A/0  simulation  coda: 

MAKEMOOULE  Main  ADSamplar  <cr> 
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Passing  Paramstsrs  to  a  'Ganaric'  Trap  Modula 

Parameter  passing  is  the  most  important  aspect  of  this  program.  The  <mainword>  in 
a  'generic'  trap  handler  module  should  have  the  (oilwing  stack  notation; 

<mainword>  (  stackframepointer  selector  -  ) 

When  a  'generic'  trap  handler  module  is  called,  the  top  item  on  the  stack  will  be  the  selector 
value  passed  in  from  the  calling  program.  The  second  stack  item  will  be  the  address  of  a 
64  byte  stack  frame  which  holds  the  complete  register  image  of  the  calling  program  at  the 
time  the  trap  handler  module  call  was  made.  The  stack  frame  address  is  provided  so  that 
if  the  calling  program  passes  additional  parameters  to  the  trap  module  in  registers,  the  trap 
module  will  be  able  to  access  the  register  contents. 

The  layout  of  the  register  stack  frame  is  shown  in  the  diagram  below.  If  an  additional 
parameter  were  passed  in  the  D4  register  (whose  contents  are  located  at  an  offset  of 
16  bytes  into  the  stack  frarrte  area),  the  'generic'  trap  module  could  retrieve  the  parameter 
value  by  inserting  the  sequence  frame  16  -f  (§>' in  the  <main  word>  definition. 


The  'Generic' 

Trap  Module 
Execution  Environment 


"  frame  ®— 
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Returning  Results  from  a  'Generic'  Trap  Handler  Module 

The  stack  frame  address  also  provides  the  'generic'  trap  handler  module  with  a  flexible 
means  of  returning  results  to  the  calling  program.  For  example,  programs  written  in  the 
OS-9  C  Compiler  expect  single  function  results  to  be  returned  in  the  00  register  (see 
page  3-4  of  the  OS-9/68000  C  Compiler  User's  Manual).  In  the  example  listing,  the 
generic'  trap  module  returns  its  result  in  the  'OO'  field,  which  is  located  at  an  offset  of  0 
from  the  start  of  the  stack  frame; 

data  frame  (  0  )  ! 

'^he  C;  '.^rlc'  Trap  Module  InItlallzatlonSequence 

When  MAKEMOOULE  creates  a  'generic'  trap  module  it  appends  initialization  the 
initialization  code,  listed  below,  to  the  module.  This  routine  performs  three  actions: 

1 .  The  complete  register  image  of  the  calling  program  is  saved 
on  the  system  (AT)  stack. 

2.  The  four  important  MACH2  stacks  (subroutine,  parameter,  loop,  and 
floating  point)  are  set  up. 

3.  The  trap  selector  value  and  a  pointer  to  the  register  stack  frame  are 
placed  on  the  parameter  stack. 


After  the  'generic'  trap  module  has  completed  execution,  the  saved  stack  image  is 
restored.  It  is  important  to  note  that  the  initialization  routine  assumes  that  the  'generic' 
trap  handler  module  has  3-4K  bytes  of  available  system  stack  space. 


4 


module  code 


initialization  code 


;  MeinWord  (  n  •  )  ; 

—  ^  —  j  - 

CODE  InItGModule  (  •  ) 


MOVEM.L 

00-07/AO-A7,-(A7) 

\ 

LEA 

•2000(A7),A5 

\ 

LEA 

•400(AS),A3 

\ 

MOVE.L 

A3, 07 

\ 

SUBI.L 

#16,07 

\ 

MOVE,L 

A7,.(A5) 

\ 

MOVE.W 

4*17(A7),.(AS) 

\ 

CLR.W 

•(A5) 

\ 

JSR 

<malnward> 

\ 

MOVEM.L 

(A7)>,D0-O7/A0-A7 

\ 

MOVEM.L 

(A7)e,A6-A7 

\ 

RTS 

\ 

save  the  calling  program's  registers 
allocate  memory  for  the  subroutine  stack 
allocate  memory  tor  the  parametar/loop  stacks 
set  up  the  floating  point  stack 
allocate  memory  for  the  floating  point  stack 
put  ptr  to  the  register  stack  frame  on  param  stack 
get  selector  value  and  place  on  parameter  stack 
dear  upper  word 

call  the  main  word  in  the  generic  trap  module 
restore  the  calling  program's  registers 
remove  params  passed  to  trap  handler  by  OS-9 
return  to  calling  program 


END-CODE 
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The  diagram  on  the  previous  page  (not  to  scale)  shows  how  the  system  is  affected 
by  the  initialization  code  listed  above.  Whenever  a  trap  handler  module  is  called,  the  stack 
pointer  will  be  in  the  'initial  A7  position.  The  10  bytes  of  data  at  the  top  of  tha  diagram 
are  always  passed  to  a  trap  module. 

The  first  step  in  the  initialization  process  involves  pushing  the  complete  register  stack 
image  onto  the  system  stack.  The  register  stack  image  takes  up  64  bytes  of  stack  space. 
At  this  point  the  stack  pointer  is  left  pointing  directly  at  the  last  register  in  the  stack  image, 
the  00  register. 

Next,  the  MACH2  stacks  are  set  up.  The  parameter  stack  (AS)  is  set  up  to  start  2000 
bytes  below  the  subroutine  (A7)  stack.  The  loop  (A3)  stack  is  set  up  to  start  400  bytes 
below  the  start  of  the  parameter  stack.  The  floating  point  stack  (07)  starts  1 6  bytes  below 
the  loop  stack  and  grows  downward. 

After  the  MACH2  stacks  have  been  set  up,  the  initialization  code  indexes  68  bytes 
from  the  ’starting  AT*  position  to  get  the  word  length  selector  value.  This  value, 
and  the  current  value  of  the  system  stack  pointer  (points  right  at  the  saved  value  of 
the  00  register),  are  placed  on  the  parameter  stack  so  that  they  will  get  passed  to 
the  <mainword>  in  the  ‘generic’  trap  module. 

When  <mainword>  has  finished  execution,  the  final  two  instructioris  in  ’InitGModulo’ 
remove  the  register  image  and  the  initiai  parameters  from  the  stack.  This  ensures  that 
the  system  stack  pointer  is  in  the  proper  ’base  AT*  position  (pointing  right  at  the  ’caller's 
return  PC’)  when  the  ’RTS’  instruction  is  executed. 

Calling  a  'Generic'  Trap  Module  from  C 

On  the  following  page  is  a  listing  of  a  C  program,  named  Trapcall.c',  that  demonstrates 
how  a  MACH2-generated  ’generic  trap  handler  module  may  be  called  from  C.  This 
program,  which  was  written  using  the  OS-9/68000  C  Compiler,  is  tuned  to  the  register 
usage  and  parameter  passing  techniques  used  by  the  OS-9  C  Compiler  (see  pages 
3-3  through  3-5  of  the  OS-9/68000  C  Compiler  User's  Manual). 

The  first  two  lines  in  the  program  are  ’include'  statements.  The  <stdio.h>  file  contains 
some  standard  C  I/O  definitions.  The  most  important  of  these  definitions  is  the  ’printf’ 
function  which  allows  C  programs  to  print  messages.  The  <traps.c>  file  contains  two 
C  routines  which  allow  C  programs  to  access  OS-9  trap  handler  modules: 

tllnkO  AssignsAjnassigns  a  trap  handler  module  to  a  software 
trap  exception  vector. 

ttcallO  Calls  a  trap  handler  nwdule. 
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/*  FILE:  trapcall.c  Writtan  in  tha  OS-9/68000  C  Compiiar. 

Exampla  C  ptx)gram  which  calls  tha  ‘AOSamplar'  modula 
writtan  in  MACH2  and  aaatad  using  MAKEMOOULE. 


•/ 

#lncluda 

<stdlo.h> 

r 

standard  C  I/O  dalinitions  */ 

dineluda 

<trapa.e> 

r 

contains  tha  trap  handlar  modula  aocdSs 

r 

functions  provided  with  MACH2  */ 

ddafina 

AOTrap  S 

r 

software  exception  vector  used  to  access 

ddaflna 

ModNama  "AOSamptar" 

r 

tha  A/0  trap  handlar  modula  */ 

fdaflna 

A01  1 

r 

name  of  tha  trap  handlar  modula  *  / 

ddafina 

AD2  2 

r 

these  are  tha  three  possible  selector^/ 

ddaflna 

AD3  3 

r 

which  may  be  passed  to  tha  A/D  module 

Maln() 

Int  a1,a2,a3; 

prlntf(‘*Baglnnlng  C  to  MACH2  trap  modula  llnkaga  axampla...\n\n“); 

prIntfCLInkIng  trap  modula  %a  ...\n\n‘*,ModNama); 
TLInk(AOTrap,0,ModNama); 

prlntf("Raadlng  samplas...\n\n"); 

alaSampla(AOI); 

a2aSampla(A02i; 

a3aSampla(A03); 

prlntfCSImulatad  Analog/Olgital  davlcaa  raad:\n”); 
prlntfrAD1a%d  AD2«%d  AD3»%dMi\n“,tl,a2,a3): 

prIntfC’FraaIng  trap  numbar  %dtn'’,A/OTrap); 

TLink(AOTrap,0,0}; 

prIntfC'End  of  'TrapCaU'  axampla'.xn''); 


) 


Sampla(davlco_num) 

Int  davlca_num 

{ 

raturn(TTCall(AOTrap,dovlco_num)); 

) 
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The  definitions  of  these  routines  will  be  discussed  later.  Five  constants  used  in  the 
program  are  defined  next.  AOTrap'  is  the  number  of  the  software  exception  vector 
which  will  be  used  to  access  the  trap  handler  module.  The  llink'  routine  will  be  used 
to  perform  this  assignment.  'ModName'  is  a  string  constant  which  contains  the  name 
of  the  trap  handler  module  to  be  called.  In  this  example,  the  'AOSampler'  trap  handler 
module  will  be  called.  'AOr .  'A02‘ .  and  'AD3'  are  three  selector  values  which  will 
be  passed  to  the  trap  handler  module  when  it  is  called. 

The  first  action  of  the  Main'  routine  in  the  program  is  to  declare  the  three  integer 
variables.  aV  ,  'a2‘ ,  and  'a3' .  which  will  receive  the  results  returned  by  the  trap  handler 
module.  Next,  the  llink'  routine  is  used  to  let  OS-9  know  that  the  program  wishes  to 
use  software  exception  vector  #5  to  access  the  'AOSampler'  trap  handler  module. 

Now  the  program  can  call  the  trap  handler  module.  The  'Sampler'  routine,  which  uses 
the  ttcair  routine  to  call  the  trap  handler  module  (through  software  exception  vector 
#5)  and  to  pass  the  nxxfule  a  parameter,  is  called  three  times  with  three  different 
selector  values.  The  three  values  returned  by  the  trap  handler  module  are  stored  in 
at' ,  'a2' .  and  'a3'  and  printed  out.  llink'  is  then  used  once  more,  this  time  to  'unassign' 
the  AOSampler'  trap  module  to  software  exception  vector  #5. 

The  'tllnk*  Routine 

The  tiink'  routine  is  a  'glue'  routine  which  allows  a  high-level  C  program  to  use  the  lower- 
level  OS-9  system  call  FSTLink.The  llink'  routine,  which  uses  the  OS-9  C  Compiler's 
inline  assembler,  is  shown  below; 

r  Assigns/unassignt  trap  handler  modules  to  software  trap  exception  vectors.  V 

tllnk(trap_nuni,addlt_mem,mod_name) 

register 

Int 

trap.num,  /*  Trap  number  to  be  assigned  to  the  trap  module.  */ 

addlt_mem,  /’  Additional  memory  to  be  assigned  to  the  trap  module 

over  and  above  the  amount  already  declared  for  the  module.  '/ 

mod_name,  /*  Address  of  the  null-terminated  name  string  for  the  trap  module. 

If  this  is  0.  or  points  to  a  0.  the  trap  number  becomes  available 
for  reassignment.  */ 

( 


& 

MOVE.L 

04,00 

trap  number 

& 

MOVE.L 

05,01 

additional  memory  request 

& 

MOVEA.LOS.AO 

module  name  pointer 

& 

OS9 

FSTLInk 

install  trap  module 

<8> 

EXT.L 

01 

error  code  or  0  is  returned  in  01  .W 

& 

} 

MOVE.L 

01,00 

return  error  code  or  0  in  OO.L 
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The  llink'  routine  uses  three  register  variables;  trap_num .  acidit_mem ,  and  mod_name. 
According  to  page  3-3  of  the  OS-9  C  Compiler  User's  Manual,  the  OS-9  C  Compiler 
uses  registers  04-07,  and  A2-A4  for  register  variables.  For  this  routine  it  was  determined 
that  the  first  register  variable  declared  was  assigned  to  register  04,  the  second  to  register 
05,  and  the  third  to  register  06.  The  first  action  of  the  Tlink'  routine  is  to  set  up  the  registers 
for  the  FSTLink  system  call  (described  on  page  14-44  of  the  OS-9/68000  Operating  System 
Technical  Manual)  by  moving  the  input  parameters  from  their  register  variable  locations  to 
the  registers  used  by  the  FSTLink  call.  The  error  code  returned  by  the  FSTLink  call  is 
returned  in  the  DO  register. 

The  version  of  the  llink'  routine  Included  on  the  MACH2  distribution  disk  contains  much 
more  extensive  error  handling.  The  version  shown  has  been  trimmed  down  for 
demonstration  purposes. 

The  'ttcair  Routine 

The  TRAPn'  68000  assembly  language  instmction  is  used  to  'call'  a  trap  handler  module. 
This  code  fragment  shows  how  a  trap  handler  module  would  be  'called*  from  assembly 
language: 

TRAP  «5 
DC.W  1 

These  instnictions  would  call  the  trap  handler  module  currently  assigned  to  software 
exception  vector  #5.  The  trap  hartdler  module  would  be  pass^  a  selector  value  of  1 . 

Since  the  TRAP'  instruction  is  only  accessible  from  assembly  language,  the  Itcall'  routine 
was  created  to  allow  C  programs  to  call  trap  handler  modules: 

/*  Allows  C  programs  to  call  a  (rap  handlar  module  using  any  softwara 

axcaption  vector  number  and  any  selector  value.  */ 

tteall(trap_num, selector) 
register 

Int  trap_num,  /*  Trap  number  to  be  assigned  to  the  trap  module.  ’/ 

selector,  /*  The  selector  value  which  will  be  passed  to  the  trap  module.  */ 

@  MOV6.W  #J4E75,-(A7)  lay  down  an  "RTS' instruction 

&  MOVE.W  OS,-(A7)  lay  down  the  selector  value 

&  ORI.W  #$4E40,04  calculate  the  trap  opcode  value 

&  MOVE.W  04, -(A?)  lay  down  the  TRAPn’ opcode 

@  J  S  R  ( A  7 )  execute  trap  call  by  'jumping'  to  the  instruction 

&  ADDO.L  #6,A7  reclaim  stack  space 

) 
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The  Itcall'  routine  also  uses  register  variables.  When  the  ttcalT  is  executed,  the  04  register 
will  contain  the  user's  desired  trap  number  and  the  DS  register  will  contain  the  selector  value 
the  user  wishes  to  pass  to  the  trap  handler  module. 

The  Itcall*  routine  makes  no  assumptions  about  the  software  exception  vector  number 
to  be  used  for  the  trap  handler  module  call  or  about  the  selector  value  which  is  to  be 
passed  to  the  trap  handler  module.  Both  of  these  parameters  are  passed  into  the  ‘ttcall* 
routine.  In  order  to  be  this  flexible,  Itcair  must  construct  the  TRAP*  and  'OC.W*  assembly 
language  instmctions  on  the  system  stack  each  time  it  executes. 

These  diagrams  should  help  explain  ttcairs  actions. 
ttcall(ADTrap,A02) 


constmcted 

Itcair  instructions 

system  stack 

instmctions 

MOVE.W  «$4E7S,-(A7) 

addr+4 

4E7S 

RTS 

MOVE.W  OS, -(47) 

addr4.2 

2 

DC.W  2 

ORI.W  «$4E40,04 
MOVE.W  04,-(A7) 

addr 

4E45 

TRAP  #5 

The  left  column  shows  the  Itcair  assembly  instructions,  the  middle  column  shows  how 
the  assembly  instructions  affect  the  system  stack,  and  the  right  column  shows  what 
instoictlons  the  values  on  the  system  stack  represent.  After  the  instmctions  have  been 
constructed  on  the  stack,  they  are  executed  and  the  stack  is  cleaned  up. 

Summary 

Using  MACH2  generated  trap  modules  from  programs  written  in  other  languages  is 
a  three  step  process.  First,  some  means  of  accessing  the  OS-9  FSTLink  system  call 
from  within  the  language  must  be  found.  In  the  example,  the  OS-9  C  Compiler  did 
not  provide  a  high  level  function  which  allowed  access  to  the  FSTUnk  call,  so  the  inline 
assembler  was  used.  Next,  some  means  of  executing  a  68000  TRAP*  instoiction 
must  be  found.  The  OS-9  C  Compilers  inline  assembler  was  also  used  for  this  purpose 
in  the  example  program.  Finally,  the  register  usage  arxf  parameter  passing  methods 
of  the  language  must  be  determined  so  that  the  calling  program  and  the  MACH2  'generic' 
trap  harxjler  module  will  interact  successfully. 
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!*#$•(*  +  .  -  ■/  012::< 


> 


■(  n  a  -  ) _ 

"  store  ■ 


Format:  rtumber  address  ! 

Action;  Stores  the  32-bit  number  at  the  specified  address. 


Example:  The  following  example  shows  that  the !  operator  takes  the  full  32-bit 

value  off  the  stack  and  stores  it  in  a  32-bit  location  in  memory : 

HEX  <cr>  ok  <$0> 


VARIABLE  STORAGE  <cr>ok  <$0> 
3CCD4  STORAGE  !  <cr>ok  <$0> 


The  number  3CC04 
as  it  appears  on  the 
stack. 


1  byte 

1  byte 

1  byte 

^^byte 

00 

03 

CC 

1^. 


Bytes  in  memory : 

nrinnncirrnr~rn[ 

lower  memory  ->  higher  memory  ^ 


lOJbkJ  l»l 


Tni>a  H  ■  I 


STORAGE 


I  takes  all  four  bytes  (32-bits) 
from  the  stack  and  stores  it 
starling  at  the  specified  address. 


For  Assembly  Lanouaoe  Programmers: 
CODE  I  (n  a  •  ) 

MOVE.L  (A5}4-,A0 
MOVE.L  (AS)>,(A0) 
RTS 
END-COOE 
MACH 


See  also:  <9  ,  W!  ,  W®  ,  Cl  ,  C<9 


G-2 


Memo  y 
Operator 


II 


!  •  #$%»  ■  0  *  ♦  .  -  .  /  0-9  ;  ;  <  -  >  ?  @A-Z  [\]*_  a-zd)- 


■  quote " 


Format:  ■  ccc* 

Action:  Converts  the  string  delimited  by  the  quotation  marks  to 

both  counted  string  format  (terigth  b^e  followed  by  the  string 
itself,  the  string  cannot  be  longer  than  255  characters)  and 
"C  string  format  (string  followed  by  a  null  byte)  and  returns 
the  address  of  the  counted  string  (the  address  of  the  length 
byte).  To  get  the  address  of  the  ‘C  string  you  must  add  1  to 
the  address  returned  (to  skip  over  the  len^h  byte). 

The  string  is  stored  in  the  dictionaiy.  The  leading  *  must  be 
followed  by  at  least  one  space. 

Example;  The  diagram  shows  how  the  string  compiled  by '  below  would 

look  in  the  dictionary: 


HEX  <cr>  ok  <$0> 
**  Hello”  ok  <$l> 

.  <cr>  82A04  <$0> 


68 

65 

6C 

6C 

6F 

00 

00 

FE 

---Iffttftf; 

Hello  ' 


alignment  byte 
(odd  length  strings  only ) 


length  byte 


null  byte 


If  a  program  uses  a  string  several  times,  the  string  should  be  created  upon  statt-up  and 
its  address  saved  in  a  variable  for  future  references: 


VARIABLE  StrIngPtr  <cr>ok  <0> 

:  MakeStrIng  ”  Reusable  Sttlng”  StrIngPtr  !  ;  <cr>ok  <0> 
StrIngPtr  (3*  COUNT  TYPE  <cr>  Reusable  String  ok  <0> 

To  get  the  address  of  a  'C*  string  add  l  to  the  address  returned  by  ’ : 

"  C-strlng”  <cr>  ok<1> 


See  also:  ,  COUNT  ,  TYPE 
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cH 


arac 

I/O 


er 


!  •  #$%4  •  0  *  ♦  .  •  ■  /  0-9  :  ;  <  -  >  ?  ®A-Z  [\I*  a-zdl- 

5 _ 

'  sharp  ■ 

Format:  <# . # . #> 

Action:  Using  the  number  on  top  of  the  stack.  #  converts  one  digit 

to  ASCII  and  inserts  it  into  the  formatted  ASCII  string  being 
constmcted  in  the  PAD.  #  will  ^ays  insert  a  digit  when 
it  is  executed.  #  must  be  used  within  <«  and  #>. 

Example:  The  word  $String  takes  nurt^rs  off  the  stack  and  prints  them 

out  in  a  dollars  and  cents  format,  SXXX.XX : 

:  SStrIng  (  n  •  )  •  •  ASCII  .  HOLD  «S  ASai  $  HOLD  «»  TYPE  ;  <cr>  ok  <0> 

77693  SStrIng  «er>  $776.93  ok  <0> 

The  first  #  is  used  to  put  the  ones  digit  in  the  string.  The  second  #  is  used  to  put  the  tens 
digit  into  the  string.  The  ASCII  .  HOLD  inserts  the  decimal  point.  The  «S  inserts  any 
remaining  numbers  into  the  string  in  the  dollars  section  of  the  formatted  string.  The 
ASCII  $  HOLD  puts  a  dollar  sign  in  front  of  the  entire  string. 


PHONE#  takes  numbers  off  the  stack  and  prints  them  out  in  phone  number  format . 

;  PHONE#  (  n  •)<###*  #  ASCII  •  HOLD  «  «  #  «>  TYPE  ;  <cr>  ok  <0> 
1234S67  PHONE#  <er>  123-4567  ok  <0> 


Each  #  inserts  one  phone  digit  into  the  formatted  string. 


!  ’  #$%4  ■()*  +  .-•/  0-9  ;:<->?  @A-Z  [\1»_  'a-zd)' 


■  sharp-greater  • 

Format:  <# . .  (any  number  of  formatting  operators) . .  #> 

Action:  Drops  the  number  from  the  top  of  the  stack  (the  remains  of 

the  number  which  was  to  be  converted  into  a  formatted  ASCII 
string-wiD  be  zero  if  all  digits  were  used  up)  and  sets  up 
the  stack  for  TVPE  by  leaving  the  count  byte  (n2)  and  the 
string  address  (a)  on  the  stack. 

Examote: 

<  #  Start  a  new  formatted  number  string. 

#  Insert  the  next  digit  of  the  number  being  printed  into 
the  formatted  number  string. 

#  S  Insert  all  remaining  significant  digits  of  the  number 

into  the  formatted  number  string. 

HOLD  Insert  the  character  on  the  stack  into  the  formatted 
number  string. 

SIGN  Insert  a  minus  sign  into  the  formatted  number  string 
if  appropriate. 

«  >  Terminate  the  formatted  number  string.  The  string 

in  now  ready  for  printing  (it  i$  set  up  for  TYPE). 


See  also:  <#  ,  #  ,  «S  ,  HOLD  ,  SIGN 
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umbi»r 
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!  •  #$%&  '  0  *•*•.-./  0-9  :;<->?  @A-Z  [\1*_  •«{!}- 


#OUT 

Format; 

Action: 


■(— ■..n ). 


number-out 


#OUT 

Returns  the  number  of  characters  that  have  been  typed 
out  on  the  current  line.  The  result  is  only  valid  when  the 
screen  is  the  current  output  device. 


Exampifl: 


In  the  following  example  #OUT  is  used  to  show  that  13 
characters  have  been  output  on  the  current  line: 


:  TEST  (  -  )  "  Testing."  COUNT  TYPE  «OUT 

TEST<cr>  Testing.13  ok  <0> 


<cr>ok  <0> 


!  *  #$%&  •  0  •  +  .  -  .  /  0-9  ;  ;  <  -  >  ?  @A-Z  (\1*_  a-zd}- 


_ 

"  sharp-s " 


Format:  <# . #S . #> 

Action:  Keeps  converting  digits  from  the  number  on  top  of  the  stack 

to  ASCII  and  inserting  them  into  the  formatted  string  being 
constructed  until  the  number  on  top  of  the  stack  is  zero.  #S 
will  always  produce  at  least  one  digit,  even  if  the  number  on 
top  of  the  stack  is  initially  zero  (in  which  case  #S  will 
pt^uce  a  0  and  terminate).  #S  must  be  used  within  <#  and  #>. 


Example:  #s  is  used  in  the  definition  of  U. .  U.  takes  a  number  from  the 

stack  and  prints  it  in  its  entirety  as  an  unsigned  number : 

:  U.  (  n  •  )  <«  «S  «>  TYPE  SPACE  ;  <cr>  ok  <0> 

1234567  <cr>  1234567  ok  <0> 

The  #S  continually  takes  digits  from  the  number  on  top  of  the  stack  and  inserts  them  in 
the  formatted  string  being  constructed  until  the  number  on  top  of  the  stack  is  reduced 
to  zero. 


The  definition  of  #S  is: 

:  «S 

BEGIN 

#  (  Convert  on«  digit  from  the  number  on  top  of  the  stack 

to  an  ASCII  character  and  insert  it  in  the  formatted 
string  being  constnicted. ) 

OUP 

(  Has  the  number  on  top  of  the  stack  been  reduced  to 
0  s  zero-  indicating  that  there  are  no  digits  left  to  convert-  ?  ) 

UNTIL  :  (  If  so,  leave  #S  .) 


See  also;  <*  ,  #  ,  HOLD  ,  SIGN  ,  «> 
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!’#$■(*+. -•/012;:<- 


'  number-t-j-b ' 


Format: 

Action: 


Examalft: 


Returns  the  address  of  the  system  variable  that  contains  the 
number  of  characters  currently  in  the  terminal  input  buffer. 
WORD  uses  #TIB  as  it  parses  a  line  in  the  text  input  buffer  to 
determine  when  it  has  reached  the  end  of  the  buffer.  BLK, 
>IN,  #TIB,  and  TIB  are  the  four  system  variables  responsible  for 
maintaining  control  of  the  input  stream. 


QUERY  is  the  word  FORTH  uses  to  get  its  temiinal  input. 
Execution  of  QUERY  terminates  when  either  a  carriage 
return  is  received  or  when  the  maximum  capacity  of  the  TIB 
has  been  reached  (the  TIB  can  hold  up  to  72  characters). 
When  QUERY  terminates  it  will  put  the  number  of  characters 
it  received  into  #TIB  : 


#TIB  ®  .  <cr>  8  ok  <0> 


(The  8  indicates  that  8  characters  were  received 
during  the  last  execution  of  QUERY'-assuming 
that  a  carriage  return  was  hit  immediately  after 
the .  was  typed.) 


See  also:  BLK  ,  TIB  ,  >IN  ,  WORD 


Sysle  n/L|ocal 
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!  ■  #$%&  •()*  +  .-■/  0-9  :;<->?  @A-Z  [V]*,  a-zd}- 


■  dollar-sign  ■ 


Format: 

Action: 


Example: 


$  <command  line> 

Used  to  interactively  execute  OS-9  utility  commands. 
The  command  line  should  follow  $  and  be  terminated 
by  a  carriage  return. 


To  interactively  check  the  amount  of  available,  unused 
memory  you  can  use  the  OS-9  utility  command  MFREE: 

$  mfree  <cr> 

Current  total  free  RAM:  203.75  K-bytes 
ok  <0> 


OS-9  Note: 


To  execute  OS-9  utility  commarxts  MACH2  creates  a  child 
process  (using  F$Fork)  and  has  the  child  process  execute 
the  commarxt.  MACH2  then  deactivates  itself  (using  F$Wait) 
until  the  child  process  terminates  execution. 


See  also:  TCALL 


InUrf^e 


!  ”  #$%&  •  0  *  +  .-./  0-9  :;<->?  @A-Z  [VI*,  ‘a-zd)' 


■  <name> 

Returns  the  address  of  the  executable  code  for  the  <name> 
which  follows  it  in  the  current  input  stream.  '  searches  for 
<name>  using  the  current  dictionary  search  order. 

If  <name>  is  found, '  leaves  the  parameter  field  address  for  the 
word  on  the  stack.  If  <name>  is  rtot  found,  an  error  message  is 
issued. 

'  should  only  be  used  interactively.  Use  f]  inside  of  colon 
definitions. 

Example:  '  may  be  used  with  EXECUTE.  EXECUTE  will  execute 

the  code  starting  at  the  address  passed  to  it; 

3  '  OUP  EXECUTE  .  .  <cr>  3  3  ok  <0> 


Format: 

Action: 


See  also:  □  ,  FIND  ,  EXECUTE 
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'  tick-equal  ‘ 


Format; 

Action: 


Example: 


'«  <name> 

Tries  to  find  <name>  using  the  current  dictionary  search. 
If  <name>  is  found, '« returns  first  <name>’s  parameter 
field  address  (al).  link  field  address  (a2) .  and  a  false  (0) 
flag.  If  <name>  is  not  found,  '•  returns  the  address 
of  a  string  containing  the  name  and  a  true  (non-zero)  flag. 

DUP  will  be  found  in  the  current  search  order : 

ONLY  FORTH  <cr>  ok  <0> 

HEX  <cr>  ok  <$0> 

■=  DUP  <cr>  ok  <$3> 

.S  <cr>  79F3A  17A9E  0  ok  <$3> 

JUNK  will  not  be  found  : 

'=  JUNK  <cr>  ok  <$2> 

•S  <Cf>  180A0  1  <-  TOP  ok  <$2> 


See  also:  '  ,  [1  .  FIND 


Coihpilalion 

VVorg 


( 


!  •  #$%4  •  0  •  +  .  -  .  /  0-9  ;  ;  <  -  >  ?  @A-Z  (\J*_  ‘a-2{l}- 


*  right-paren " 


Format:  (  ...comments...  ) 

Action:  Begins  a  comment.  All  words  between  the  left 

paren  and  the  corresponding  right  paren  will  be 
ignored.  '('  must  be  followed  by  at  least  one  space. 
Nested  parentheses  are  accepted. 


Examplg; 

The  following 

definition  contains  several  uses  of  ’("  tor  comments: 

:  LF-Fllter  (  address  length  - 

1 

length  0  DO 

(  step  through  •mire  string  ) 

address  l 

*  C@ 

( get  a  character ) 

7F  AND 

( throw  away  the  8th  bit ) 

address  l 

*  C! 

(  store  the  altered  character ) 

address  1 

C<3>  A  s 

(  check  for  linefeeds  ) 

IF 

SP  address  1  C! 

( replace  linefeeds  with  carriage  returns  ) 

THEN 

LOOP 

(  address  length  TYPE  (  av«ntuallyw«  will  type  the  string  out...)  ) 


Notice  that  the  last  line  contains  nested  parentheses. 

The  word  \  may  be  used  tor  commenting  out  a  single  line.  (  may  be  used  to 
comment  out  any  number  of  lines. 


See  also;  .(  ,  \ 
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%  1 - (  n1  ng  -  n?) _ 

”  times  ■ 

Format:  n1  n2  * 

Action:  Multiplies  nl*n2,  leaves  32-bit  result  on  top  of  the  stack. 

Example;  *  s  •  <cr>  ok  <i> 

.  <cr>20ok  <0> 


See  also;  UM*,  2*,  */,  ’/MOO 
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*  / _ I  n1  n2  n3  -  n4  ) 


”  star-slash  ” 


Format:  nl  n2  n3  */ 

Action:  Multiplies  n1*n2  to  get  a  64-bit  result.  Then  divides  by  n3 

to  produce  a  32-bit  result. 


Example:  1000000  4  8  */  <cr>ok  <o> 

.  <cr>  500000  ok  <0> 


See  also:  *,  /,  ‘/MOD 
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( n1  n2  n3  -  n4  nS  ^ 


'  star-siash-mod  ‘ 


Format: 

Action; 


Example: 


n1  n2  n3  VMOD 


Multiplies,  then  divides  -  (n1‘n2)/n3  •  using  a  64-bit 
intermediate  result.  Leaves  the  32-bit  quotient  on  top  of 
the  stack  and  the  32-bit  remainder  immediately  below  the 
quotient. 

10000  5  20000  */MOO  <cr>  ok  <2> 

.S  <cr>  10000  2  <-  TOP  ok  <2> 


20000 


10000 


10000 


See  also:  /MOO,  */,  MOO 
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!  ■  #$%&  •  0  *  +  .'./  0^  :;<->?  @A-Z  I\r_  'a-zH)' 

± _ f  m  n2  •  na ) _ 

■  plus ' 

Format:  n1  n2  + 

Action:  Adds.  Replaces  the  two  numbers  on  top  of  the  stack 

with  their  sum. 


Example:  3  5  <cr>  ok  <1> 

.  <cr> 


For  Assembly  Language  Programmers: 

CODE  •»'  (  n1  n2  •  n3  ) 
MOVE.L  (A5)-i-,00 
ADO.L  DO, (AS) 
RTS 
END-CODE 
MACH 


See  also:  l4-  ,  24-  ,  D-i- 
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!  "  #$%&  •  0  *  +  .  -  .  /  0-9  :  ;  <  -  >  ?  @A-Z  [X]*.  ' a-2{|) 


■  plus-store  “ 


Format;  number  address  -•-! 

Action;  Adds  the  32-bit  value  to  the  contents  of  the  specified 

address. 


!  “  #$%&  •{)*  +  ,-./  0-9  :;<  -  >  ?  @A-Z  'a-z{|)- 


Format:  n1  ■•■>  <name  of  local  variable> 

Action:  Adds  the  number  on  top  of  the  stack  to  the  local  variable 

specified  by  name. 


Example:  We  will  use  '-»■>'  in  this  example  to  help  sum  the  numbers 

from  0  -  9: 

;  TENSUM  {  I  Sum  -  sum  } 

0  •>  sum 
10  0  00 
I  *>  sum 
LOOP 

sum  .  ;  ok  <0> 

TENSUM  <cr>  45  ok<0> 


!  ■  #$%4  •  0  *  +  .  -  .  /  0-9  :  ;  <  -  >  ?  @A-Z  (\1*_  ‘a-zH}- 

i"LOQP _ (n  -  ) _ _ 

■  plus-loop  ■ 


Format:  limit  index 

DO 

( code  to  be  executed  each  time  through  loop ) 
increment  value 
+LOOP 

Action:  -fLOOP  is  used  when  incrementing  the  loop  index  by  a 

number  other  than  one  is  desired. 

>LOOP  expects  to  find  a  limit  and  index  on  the  return  stack 
and  the  desired  incremerrting  value  on  the  parameter 
stack.  Each  time  -t-LOOP  is  executed  it  adds  the  desired 
increment  to  the  loop  index  value  and  conrpares  the 
new  index  value  to  the  loop  limit.  If  a  positive  increment 
value  is  specified,  the  loop  will  continue  to  be  executed 
until  the  index  value  is  greater  than  or  equal  to  the  limit 
value.  If  a  negative  increment  value  is  specified,  the 
loop  will  continue  to  be  executed  until  the  index  is  less 
than  or  equal  to  the  limit.  When  the  condition  for  loop 
termination  has  been  reached,  -»4.00P  will  remove  the  limit 
and  index  from  the  return  stack  and  allow  program  execution 
to  continue  on  to  the  code  which  follows  the  -f-LOOP. 

ExaniPig;  STEP_UP  uses  a  positive  loop  index  with  -fLOOP  : 

:  STEP-UP 

30  0  00 

I  . 

5 

•fLOOP  ;  <cr>ok  <0> 

STEP-UP  <cr>  0  5  10  15  20  25  ok  <0> 

STEP-DOWN  uses  a  negative  loop  index  with  -fLOOP  : 

:  STEP-OOWN 

-10  0  DO 

I  . 

-2 

•fLOOP  ;  ■<cr>  ok  ^0> 

STEP-DOWN  <cr>  0  -2  -4  -6  -8  -10  ok  <0> 


im 
i>l 
.  re 


See  Also:  DO  ,  LOOP  ,  I  ,  J 
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!  *  #$%&  ■{)•>.-./  0-9  ;;  < 


>  ?  @A-Z  [V]*.  'a-zd)- 


.(JL_^) _ 

'corrvna  ~ 


Format:  32-bit-value  . 

Action:  Lays  the  32-bit  number  in  the  dictionary  starting  at  the  next 

available  memory  location  in  the  dictionary.  ,  will  first  check 
to  make  sure  it  is  on  a  word  boundary  and  adjust  the  HERE 
pointer  if  necessary.  The  pointer  to  the  next  available 
dictionary  location,  the  HERE  pointer,  is  incremerrted  by  4 
bytes. 

Example:  In  the  following  example,  CREATE  is  used  to  make  a 

dictionary  entry  for  TABLE.  Then, ,  is  used  to  store 
four  32-bit  values  starting  at  the  parameter  field  address 
of  TABLE  . 

CREATE  TABLE  <cr>ok  <0> 

10  ,  100  .  1000  ,  10000  .  <cr>ok  <0> 

TABLE  @  .  <er>  10  ok  <0> 

TABLE  12  -f  (9  .  <(cr>  10000  ok  <0> 


For  Advanced  Programmers: 

An  important  fact  to  notice  in  the  above  example  is  that  CREATE  creates  the 
dictionary  entry  in  the  area  where  the  names  are  stored  (in  the  names  space) 
while stores  values  in  the  area  where  the  executable  code  for  the  dictionary 
entries  is  kept  (in  the  code  space). 


See  also:  W,  ,  C,  ,  ALLOT  ,  HERE 
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Format: 

Action: 


Exampifl: 


n1  n2  - 

Subtracts  nl  -n2  and  leaves  the  result  on  top  of  the  stack. 


100  35  •  <cr>  ok  <1> 
,  <cr>  65  ok  <0> 


CODE  •  (  nl  n2  •  n3  ) 
MOVE.L  (A5)-i-,00 
SUB.L  00, (A5) 
RTS 
END-CODE 
MACH 


See  also;  l-  ,  2- 
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!  •  #$%&  •  0  *  +  .  -  •  /  0-9  :  ;  <  -  >  ?  @A-Z  [\1*_  ’a-zd}- 


*  save-to  ■ 


Format: 

Action: 


Exampift: 


number  ->  <name> 

Stores  the  number  on  top  of  the  stack  into  the  specified  local 
variable  name  or  named  input  parameter. 


Local  variables  could  be  used  to  solve  this  equation  for  any  specified  X,  Y  combination: 
(X*Y)+<X-Y)-N. 

:  EQUATION1  {  X  Y  1  XI  Y1  -  N  ) 

XY*  ->  XI 
XY-  ->  Y1 

XI  Y1  ♦  ;  <cr>ok  <0> 

10  5  EQUATION1  .  <cr>5S  ok  <0> 

The  contents  of  a  local  variable  or  named  input  rarameter  are  put  on  the  stack  by 
typing  their  name.  Values  are  stored  in  a  local  variable  or  nanned  input  parameter 
by  using  the  ->  operator. 

X  and  Y  are  named  input  parameters.  They  require  a  value  from  the  stack  on 
input. 

XI  and  Yl  are  local  variables.  They  are  used  for  temporary  storage. 

N  is  a  comment,  indicating  stack  notation. 


See  also:  RECURSIVE 
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!  “  #$%&  •{)•  +  .-./  0-9  ::<  -  >  ?  @A-Z  [\r_  ‘a-zll)' 


"TRAILING  /a  n1  •  a  n2  ) - 

■  minus-trailing " 

Format:  string-address  original-length  -TRAILING 

Action:  Reduces  the  character  count  of  a  string  by  eliminating  any 

trailing  spaces.  Expects  on  the  stack  the  length  in  bytes  and 
address  of  the  string.  Leaves  the  address  of  the  string  and 
the  new  reduced  length  of  the  string. 


Example: 

VARIABLE  STRING  36  VALLOT  <cr>  ok  <0> 

STRING  40  EXPECT  <cr>  string  with  trailing  spaces  ^  <cr>  ok  <0> 

(10  spaces) 

STRING  40  TYPE  <cr>  string  with  trailing  sp«:es  ^  ok  <0> 

(spaces  stilt  included  in  string) 

STRING  40  -TRAILING  TYPE  <cr>  string  with  trailing  spaces  ok  <0> 

f 

(string  count  has  been  reduced  to  eliminate  trailing  spaces) 


See  also:  TYPE  ,  COUNT 
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!  *  #$%&  •  0  *  +  .  -  .  /  (W  .  ;  <  -  >  ?  @A-Z  [\J*_  "a-zd)- 


.(n^) _ 

“dot" 


Format:  n  . 

Action;  Prints  the  signed  number  on  top  of  the  stack  on  the  screen 

followed  by  one  space.  .  checks  the  sign  bit  (bit  31)  of  the 
number  on  the  stack  to  determine  if  the  minus  sign  should 
be  printed. 


Example: 

3  .  <cr>  3  ok  <0> 

-3  .  <cr>  -3  ok  <0> 

U. ,  on  the  other  hand,  treats  all  numbers  as  unsigned  numbers  : 
HEX  <cr>ok  <$0> 

•3  U.  <cr>  FFFFFFFD  ok  <$0> 


The  definition  of .  is  : 

:  .  (  n  •  )  DUP  A8S  <#  #S  SIGN  #>  TYPE  SPACE  ;  <cr>  ok  <0> 


See  also:  U.  ,  SIGN 
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!  ■  #$%&  ■  0  •  +  .  -  .  /  0-9  :  ;  <  -  >  ?  (g»A-Z  I\I*_  ‘  a-Z { | } 


j _ 

Format: 

Action: 


Example: 


*  dot-quote " 


."ccc" 

Used  inside  of  a  colon  definition  to  compile  a  string  which 
will  be  t/ped  out  at  execution  time.  The must  have  a  space 
after  it.  The  final  ’  is  not  included  in  character  string.  A  ." 
string  may  be  a  maximum  of  255  characters  in  length. 

.(  should  be  used  if  a  string  is  to  be  typed  out  interactively. 

;  HELLO  Hello  !"  ;  <cr>  ok 
HELLO  <cr>  Hello  !  ok 


See  also:  .(  , 
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!  •  #$%&  •  0  *  +  .  -  .  /  0-9  :  :  <  -  >  ?  ©A-Z  [\r_  ’a-zd}- 


"  dot-paren " 

Format;  .(  ...cxx...  ) 

Action;  Immediate  word  which  types  the  character  string 

delimited  by  the  parentheses  out  to  the  current 
output  device.  When  used  inside  of  a  cobn 
definition  the  string  will  be  printed  out  during 
compile  time.  When  executed  immediately  the 
string  will  be  typed  out  immediately.  The  .(  must 
be  followed  by  a  space. 


Example:  .( is  often  used  to  print  out  messages  to  indicate  what 

part  of  a  program  is  currently  being  compiled.  For  example, 
the  following  is  a  listing  of  the  program  file  ‘INIT-TABLES. 

\  This  Is  the  file  named  ‘INIT-TABLES'. 

CR 

.(  Initializing  sine  table.  ) 

:  INIT-SINE-TABLE  ; 

CR 

.(  Initializing  cosine  table.  ) 

;  INIT-COSINE-TABLE  ; 

CR 

.(  Initializing  log  table.  ) 

:  INIT-LOG-TABLE  ; 


The  .(  messages  imbedded  in  the  INIT-TABLES'  file  are  printed  out  when  'INIT-TABLES' 
is  loaded; 

INCLUDE"  INIT-TABLES"  <cr> 

Initializing  sine  table. 

Initializing  cosine  table. 

Initializing  log  table,  ok  <0> 


See  also:  ( 
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(  n1  n: 


Format; 

Action; 


number-to-be-printed  field-width  R 

Prints  the  signed  number,  right-justified  in  a  field  with  the 
specified  width.  If  the  number  is  wider  than  the  field,  no 
leading  blanks  will  be  printed. 


Examalft; 

:  TWO-FIELDS  CR 
2345  10  .R  CR 

23  10  .R  CR  ;  4ECr>  ok  <0> 

TWO-FIELOS  <cr> 

.  2345 


6  spaces 


23  ok  <0> 


8  spaces 


See  also;  .  ,  U. 


imbfr 
I/O  1 


!  ”  #$%&  •  0  •  .  I  0^  :  ;  <  m  >  7  @A-Z  ' a-z{ | } 


Format: 

Action: 


Example: 


See  also: 


•dot-s 


S 

Displays  the  items  on  the  parameter  stack  without 
destroying  the  contents  of  the  stack.  The  number  on 
top  of  the  stack  will  be  the  rightmost  number  displayed 
on  the  screen. 


10  20  30  40  50  60  70  <cr>  ok  <7> 

•S  <cr>  10  20  30  40  50  60  70  <-  TOP  ok  <7> 


DEPTH. 
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!  •  #$%&  •()*  +  .-•/  0-9  ;;<->?  @A-Z  [\1*_  'a-zd)- 


L _ 

Format; 

Action: 

Ejsamnlfl,: 


S««  also: 


(  n1  n2  •  n3  ) _ 

n1  n2  / 

Divides  n1/n2.  Quotient  is  an  32-bit  result  rounded 
towards  zero. 

In  the  first  example  the  division  works  out  evenly  - 


SO  5  /  <cr>  ok  <1> 
.  <cr>  1 0  ok  <0> 


In  this  example,  the  division  does  not  work  out  evenly  - 

25  8  /  <cr>  ok  <1> 

.  <cr>  3  ok  <0> 


2/  ,  /MOO  ,  V  ,  VMOO  ,  MOO 


"  divide " 


Arithmetic 


!  •  #$%&  •  0  *  +  .  -  .  /  0-9  :  :  <  -  >  ?  @A-Z  (N) ' a-z{ | } - 

/MOD  (  n1  n2  -  n3  n4  ) _ _ _ 

■  slash-mod  ‘ 

Format:  n1  n2  /MOD 

Action:  Divides  nl/n2.  leaving  the  32-bit  quotient  on  top  of  the  stack 

and  32-bit  remainder  immediately  below  the  quotient. 


Examolg;  17  4  /MOD  <cr>  ok  <2> 

•S  <cr>  1  4  <-  TOP  ok  <0> 


S««  also:  MOO  ,  / 


ot 
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’  zero-less-than " 


Format;  ni  0< 

Action;  Returns  a  true  flag  it  n  is  less  than  0  ( if  n  is  negative ). 


Example:  4  0<  <cr>  ok  <1> 

.  <cr>  0  ok  <0> 


■2  0<  <cr>ok  <1> 
.  <cr>  -1  ok  <0> 


CODE  0<  ( n  •  f ) 


MOVEQ.L  «0,D0 
TST.L  (A5)* 
BGE.S  @1 
MOVEQ.L  «-1,D0 
(3>1  MOVE.L  00, -(AS) 

RTS 

END-COOE 

MACH 


G-31 


Format: 

Action: 


"  zero-equal ' 


n  0* 

Returns  a  true  flag  if  fhe  number  on  top  of  the  stack  is 
a  zero  or  a  false  flag  if  the  number  is  non-zero. 


Example: 

5  Os  <cr>ok  <1> 
.  <cr>  0  ok  <0> 


0  Os  <cr>  ok  <1> 
.  <cr>  ok  -1  <0> 


For  Assembly  Language  Programmers: 

CODE  Os  (  n  •  f  ) 

MOVEQ.L  #0,00 
TST.L  (A5)+ 

BNE.S  ^1 

MOVEQ.L  «-1,00 
@1  MOVE.L  00, -(AS) 
RTS 

ENO-COOE 

MACH 


See  also:  0<,  0> 
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!  •  #$%&  •  0  *  +  .  -  .  /  0-9  :  ;  <  -  >  ?  @A-Z  [\]*_  "a-zd)- 


(■Dl --..nS  ) _  % 

"  one-plus  ■ 

n  1+ 

Adds  one  to  the  number  on  top  of  the  stack. 


Example:  3  U  <cr>  ok  <1> 

<cr>  4  ok  <0> 


AOOQ.L  i1,(A5) 
RTS 


END-CODE 

MACH 


See  also;  l-  ,  *  ,  2* 


1 


!  ■  #$%&  '  0  *  +  .-./  0-9  ;;  < 


>  ?  @A-Z  (\1*_  •a-zll)' 


.(  n1  -  n2) _ 

■  one-minus " 

Fomnat;  n  1- 

Action:  Subtracts  one  from  the  number  on  top  of  the  stack. 

Example:  10  1-  <cr>  ok  <1> 

<cr>  9  ok  <0> 


For  Assembly  Lanouaoe  Programmers: 

CODE  1-  (  hi  •  n2  ) 

SUBQX  «1,(AS) 
RTS 
ENO-COOE 
MACH 


See  also:  •  ,  2- 
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2 


* 


f  n1  -  n2  ^ 


two-times ' 


Format:  number  2* 

Action;  Multiplies  the  number  on  top  of  the  stack  by  two. 


Example:  6  2*  <cr>ok<1> 

.  <cr>  12  ok  <0> 


6  DUP  BINARY  .  <cr>  110  ok  <%1> 
2*  .  <cr>  1100  ok  <%0> 


For  Assembly  Language  Programmers: 


CODE  2*  (  n1  •  n2  ) 


MOVE.L  (AS), DO 
ADO.L  00, (AS) 
RTS 


END-CODE 

MACH 


See  also:  2/,  *,  /,  2*,  2-,  BINARY,  DECIMAL 
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Format:  n  2+ 

Action;  Adds  two  to  the  number  on  top  of  the  stack. 


Example:  7  2*  <cr>  ok  <1> 

.  <cr>  9  ok  <1> 


AOOQ.L  «2,(AS) 
RTS 


END-CODE 

MACH 


See  also:  2-  ,  1-f 


!  •  #$%&  *  0  *  +  .  -  .  /  0-9  ;  ;  <  -  >  ?  @A-Z  [VI*,  'a-zfl}- 


Format; 

Action; 

Example: 


n  2- 

Subtracts  two  from  the  number  on  top  of  the  stack. 


5  2*  <cr>  ok  <1> 
.  <cr>  3  ok  <0> 


For  Assembly  Language  Programmers: 

CODE  2-  (  n1  •  n2  ) 

SUBQ.L  *2, (AS) 

RTS 
END-CODE 
MACH 


See  also:  24'  ,  2*  ,  1- 
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!  ’  #$%&  •  0  *  +  .-./  0-9  ;;<->?  @A-Z  [\1 

2JL _ (  n1  •  n2  ) - 


Format:  n  2/ 

Action:  Divides  the  number  on  top  of  the  stacK  by  two  by 

arithmetically  shifting  the  number  right  one  bit. 
Returns  integer  result  rounded  towards  zero. 


Example:  A  2/  <cr>  ok  <1> 

.  <cr>  2  ok  <0> 


S  2/  <cr>ok  <1> 
.  <cr>  2  ok  <0> 


For.AssemblvJ.anquaae  Proorammers: 

CODE  2/  (  ni  -  n2  ) 

MOVE.L  (AS), DO 
ASR.L  «1,D0 
MOVE.L  DO, (AS) 
RTS 
END-CODE 
MACH 


two-divide " 


See  also:  24.,  2-,  / 
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2DROP  _( JQl  ng  -  ) _ 

'  two-drop  ‘ 


Format:  n1  n2  2DROP 

Action;  Removes  two  numbers  from  the  top  of  the  parameter  stack. 


Example: 


30  40  20R0P  <cr>ok  <0> 


For  Assembly  Language  Programmers: 

CODE  20R0P  (  n1  n2  •  ) 

AOOQ.L  «8,A5 
RTS 
END-CODE 
MACH 

See  also:  DROP  ,  2SWAP  ,  20VER  ,  2DUP 
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(  n1  n2  -  nl  n2  n1  n2  ) _ 

•  two-dupe " 

Pormat:  nl  n2  2DUP 

Action:  Duplicates  the  two  single-length  (32-bit)  numbers 

on  top  of  the  parameter  stack. 

Example:  30  40  2DUP  <cr>ok  <4> 


For  Assembly  Language  Programmers: 

CODE  20UP  (  nl  n2  •  nl  n2  nl  n2  ) 
MOVE.L  4(A5),-(A5) 

MOVE.L  4(A5),-(A5) 

RTS 

END-CODE 

MACH 

See  also:  DUP  ,  2SWAP  ,  20VER  ,  2DROP 
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20VER  (  n1  n2  n3  n4  -  nl  n2  n3  n4  n1  n2  \ _ 

Format:  nl  n2  n3  n4  20VER 

Action:  Puts  a  copy  of  the  second  pair  of  numbers  on  the  stack 

on  top  of  the  stack. 

Example:  20  40  30  50  20VER  <cr>  ok  <6> 

.S  <cr>  20  40  30  50  20  40  ok  <6> 


See  also:  OVER  ,  2SWAP  ,  20UP  ,  2DROP 
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2SWAP  {  n1  n2  n3  n4  -  n3  n4  n1  n2  ) _ 

’  twKO-swap  ■ 

n1  n2  n3  n4  2SWAP 

Switches  the  top  two  pairs  of  numbers  on  the  parameter  stack. 


Format: 

Action: 


Example:  30  40  50  60  2SWAP  <cr>  ok  <4> 


A  high-level  definition  of  2SWAP  is  : 

:  2SWAP  (  nl  n2  n3  n4  •  n3  n4  ni  n2  ) 

3  ROLL  3  ROLL  ;  «;cr>  ok  <0> 


See  also:  SWAP,  20UP,  20ROP,  20VER 
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■  colon 

Format:  :  <name>  (contents  of  colon  definition)  ; 

Action;  Defining  word  used  to  create  new  dictionary  entries.  The 

compile-time  action  of :  involves  creating  a  new  dictionary 
entry  using  <name>.  putting  the  system  into  the  compilation 
state,  and  setting  the  smudge  bit  of  the  new  definition  so 
the  definition  will  not  be  visible  until  it  is  corrpleted. 

RECURSIVE  is  used  when  a  definition  needs  to  reference 
itself. 


Example:  A  colon  definition  may  be  as  simple  as  this  definition  (which 

does  nothing); 

:  NOTHING  ;  ok  <0> 

Or  it  may  contain  a  series  of  other  FORTH  words; 

:  GREETINGS 
BEGIN 
Hello  I" 

CR 

?TERMINAL 
UNTIL 
;  ok  <0> 

To  determine  to  which  vocabulary  a  new  definition  will  be  appended,  use  ORDER. 

In  the  following  example,  the  results  of  ORDER  indicate  that  currently,  the  ASSEMBLER 
vocabulary  is  searched  first,  and  then  the  FORTH  vocabulary.  Any  new  definitions 
will  be  appended  to  the  FORTH  vocabulary  : 

ONLY  FORTH  DEFINITIONS  <cr>  ok  <0> 

ALSO  ASSEMBLER  <cr>  Ok  <0> 

ORDER  <cr> 

Search  Order  :  ASSEMBLER  FORTH 
Definitiions  :  FORTH 
ok  <0> 

See  also:  ;  ,  EXIT  ,  STATE  ,  RECURSIVE 
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Format: 

Action; 


S««  also: 


■  semi-colon " 


:  <name>  (contents  of  colon  definition)  ; 

Immediate  word  which  compiles  the  oin-time  code  for  exit-an 
RTS,  at  the  end  of  the  new  colon  definition.  ;  then  clears 
the  smudge  bit  so  that  the  word  may  be  found  in  dictionary 
searches  and  puts  the  system  back  into  the  execution  state. 


,  EXIT 


G-4S 


ion 
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:CODE _ 

“  semi-colon-code  ’ 


Format: 

:  name 

CREATE 

...  compiling  behavior... 

;CODE 

...assembly  language  rurvtime  behavior. 

END-CODE 

Action: 

Used  in  the  definition  of  a  new  defining  word.  :CODE  is 

similar  to  OOES>  except  that  it  allows  the  run-time  code  to 
be  expressed  in  assembly  language.  During  compilation 
of  the  defining  word  :COOE  adds  the  ASSEMBLER  to  the 
search  order.  During  the  run-time  of  the  daughter  word 
;CODE  will  leave  the  parameter  field  address  on  the 
subroutine  stack.  When  :CODE  is  used  to  define  mn-time 
behavior,  the  defining  word  must  end  with  an  END-CODE. 


See  also: 


OOES>  ,  END-CODE 
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1). 


■  less-than ' 


Format:  nl  n2  < 

Action:  Compares  the  two  numbers  on  top  of  the  stack.  Returns 

a  true  flag  if  nl  is  less  than  n2,  and  a  false  flag  if  nl  is 
not  less  than  n2. 


Example: 

4  8  <  <cr>  ok  <1> 


<cr>  -1  ok  <0> 

4  2  <  <cr>  ok  <1> 


4  4  <  <cr>  ok  <1> 
.  <cr>  0  ok  <0> 


For  Assembly  Language  Proprammen^; 


CODE  «  (  nl 

MOVEO.L 
CMPM.L 
BGE.S 
MOVEQ.L 
&1  MOVE.L 
RTS 
END-CODE 
MACH 


n2  •  f  ) 
iO.DO 
(AS)*, (AS)* 
@1 

#-1,00 

00,-(AS) 


ipari 

erat 


See  also:  >,  s 
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bracket-sharp 


Format;  n  <#  (any  number  of  formatting  operators )  #> 

Action:  Signifies  the  beginning  of  the  binary-number  to  formatted- 

ASCII-string  conversion  process.  <#  sets  up  a  pointer 
to  point  to  the  memory  location  where  the  first  character 
(the  right-most  character)  in  the  formatted  ASCII  string  will 
be  placed.  The  number  to  be  converted  should  be  on  top  of  the 
stack  since  any  succeeding  formatting  operators  (# .  #S  . 

HOLD  ,  SIGN  ,  #> )  perform  their  operations  on  the  number 
on  top  of  the  stack. 


Example:  DATE#  prints  the  number  on  top  of  the  stack 

out  in  a  date  format,  month/day^ear : 

:  DATE#  (  n  •  )  <*  «  *  ASCII  /  HOLD  «  «  ASOI  /  HOLD  *  »  «>  TYPE  ;  <cr>  ok  <0> 
10096t  DATE#  <cr>  10A)9/61  ok  <0> 


The  PAD  is  the  area  used  to  construct  the  formatted  ASCII  string.  The  first  character, 
the  right-most  digit,  is  placed  in  the  last  byte  position  in  the  PAD.  A  formatted  string 
may  contain  up  to  84  characters,  which  is  the  capacity  of  the  PAD. 


0  bytes  84  bytes 


4 

This  is  where  the  first  ASCII  character 
in  the  formatted  string  will  be  placed. 


4 

Beginning  of  the  PAD. 


« 


Sec  also:  «  ,  «S  ,  HOLD  ,  SIGN  ,  «> 
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<> _ (  n1  n2  -  f ) _ 

■  not-equal " 

Fonnnal:  n1  n2  <> 

Action;  Compares  the  two  numbers  on  top  of  the  stack.  Returns 

a  true  flag  if  nl  is  not  equal  to  n2,  and  a  false  flag  if  nl  is 
equal  to  n2. 

Example: 

4  8  <>  <cr>  ok  <1> 

.  <cr>-1  ok  <0> 


4  4  o  <cr>  ok  <1> 
<cr>  0  ok  <0> 


For  Assembly  Language  Programmers: 
CODE  o  (  nl  n2  •  f  ) 


MOVEQ.L 

«0,D0 

CMPM.L 

(A5)+,(i 

BEQ.S 

@1 

MOVEQ.L 

#-1,D0 

@1  MOVE.L 

DO, -(AS) 

RTS 

END-CODE 

MACH 

See  also:  >  ,  s  ,  < 
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^  n1  n2  -  f  ) - 

“  equal " 


Fomrat:  nl  n2  » 

Action;  Compares  the  two  numbers  on  top  of  the  stack.  Returns 

a  tnje  flag  if  they  are  equal  or  a  false  flag  if  they  are  not 
equal. 


Example: 

5  5s  <cr>ok  <1> 
.  <cr>  -1  ok  <0> 


5  6s  <cr>  ok  <1> 
.<cr>  0  ok  <0> 


For  Assembly  Language  Programmers: 
CODE  s  (  n1  n2  •  f  ) 
MOVEQ.L  «0,D0 

CMPM.L  (A5)-f,(A5]-t- 
BNE.S  €>1 

MOVEQ.L  «-1,DO 

@1  MOVE.L  D0,-(A5) 

RTS 

END-CODE 

MACH 


See  also:  <  ,  > 
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■  greaier-than ' 


Format: 

Action: 


n1  n2  > 


Compares  the  two  numbers  on  top  of  the  stack.  Returns 
a  true  flag  if  nl  is  greater  than  n2.  Returns  a  false  flag 
if  nl  is  not  greater  than  n2. 


Example: 

4  8  >  <cr>  ok  <0> 
<cr>  0  ok  <0> 


8  8  >  <cr>ok  <0> 
<cr>0  ok  <0> 


8  4  >  <cr>ok  <0> 
.  <cr>  -1  ok  <0> 


CODE  >  (  nl  n2  -  f  ) 

MOVEQ.L  «0,00 


CMPM.L 

BLE.S 


(A5).*.,(A5)+ 


MOVEQ.L  «-1,DO 
MOVE.L  DO, -(AS) 


END-CODE 

MACH 


See  also:  <  ,  s 
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>BODY  f  al  -  ai  ) _ 

■  to-body " 

Format:  parameter-field-address  >BODY 

Action:  In  a  pointer-threaded  implementation  of  FORTH,  >BODY 

takes  the  code  field  address  (CFA)  of  a  definition  and  returns 
its  parameter  field  address  (PFA,  the  address  where  the 
executable  code  for  a  word  actually  begins).  In  MACH  2, 
which  is  i  subroutine-threaded  implementation  of  FORTH, 
there  are  no  CFAs.  The  executable  code  begins  right  at  the 
start  of  the  dictionary  entry. 

The  function  of  >BOOY  in  MACH  2  therefore  is  that  of  a 
high-level  no-op.  >BOOY  takes  a  PFA  and  returns  the  PFA. 


See  also:  LINK>BOOY  ,  BOOY>LINK 
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Format: 

Action: 


Example: 


4 

3 


1^ 

1 


See  also: 


_ 

■  to-in  • 


>IN 

Puts  the  address  of  the  system  variable  whose  contents 
indicate  how  far  WORD  has  progressed  into  the  current 
input  stream  on  the  stack. 

BLK,  >IN,  TIB.  and  #TIB  are  the  4  system  variables  responsible 
for  maintaining  control  of  the  input  stream. 

Words  such  as  WORD  and  QUERY  alter  the  value  of  >IN. 


DUP  DROP  .  <cr>  6  ok  <0> 


(  At  the  time  the  content  of  the  >IN  user  variable 
was  checked,  WORD  had  progressed  6 
characters  into  the  current  input  stream.  ) 


WORD  ,  BLK  ,  TIB  ,  «TIB 
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>R  (n  ■  ) _ 

"  to-r ' 

Fomiaf;  n  >R 

Action:  Moves  the  number  on  top  of  the  parameter  stack  to 

the  top  of  the  return  (loop)  stack. 

NOTE:  MACH  2  has  a  separate  return  (loop)  stack.  I ,  J  ,  I' 

may  be  executed  outside  of  a  DO  loop  to  obtain 
data  or  indices. 


Example: 


5  >R  <cr>  ok  <0> 


Paramater  stack  and  return 
stack  before  >R  - 


Parameter 

Stack 


Return 

Stack 


For  Assembly  Language  Programmers: 


Parameter  stack  and  return 
stack  after  >R  - 


Stack  Stack 


CODE  >R  (  n  •  ) 

MOVE.L  OS,(A3)> 
MOVE.L  06, D5 
MOVE.L  (A5)4-,D6 
RTS 

END'COOE 

MACH 


See  also:  R>  ,  R@  ,  I  ,  J 
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?DUP  f  n  -  n  (dL ) _ 

‘  question-dupe  " 

Format:  n  ?DUP 

Action:  Duplicates  the  number  on  top  of  the  stack  if  it  is 

non-zero. 


Example:  A  ?DUP  <cr>  ok  <2> 

•S  <cr>  4  4  <-  TOP  ok  <2> 


0  ?OUP  <cr>  ok  <1> 

.S  <cr>  0  <-  TOP  ok  <1> 


For  Assembly  Language  Programmers: 

CODE  7DUP  (  n  -  n  (n)  ) 
TST.L  (A5) 

8EQ.S  <3>1 
MOVE.L  (AS), -(AS) 

@1  RTS 

ENO-COOE 

MACH 

See  also:  OUP  ,  OVER  ,  PICK  .  DROP 


Marii 
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?FREE _ 

’  question-tree " 

Format:  ?FREE 

Action:  Outputs  information  about  the  remaining  available  code 

space,  variable  space,  and  narms  space. 


Example:  The  following  example  shows  how  to  use  ?FREE.  Note 

that  the  sizes  of  each  of  the  spaces  are  system  dependent. 
The  numbers  ?FREE  produces  on  your  system  will  probably 
be  much  different  than  those  shown  below: 


7FREE  <cr> 
Code  :  32768 
Variable  :  12000 
Names  :  8000 
ok  <0> 


ORT 

Tool 
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7INCLUDE’'  ft.  > _ 

'  question-include-quote ' 


Format:  flag  7INCLUDE'  <lilename>" 

Action:  Conditional  version  of  the  word  INCLUDE*  .  The  file 

specified  by  name  will  only  be  included  if  a  false  flag 
(zero)  is  passed  to  7INCLUDE*. 

7INCLUDE*  may  not  be  used  within  a  colon  definition. 


Example:  ?INCLUOE‘  is  normally  used  during  a  loading  process 

to  ensure  that  no  files  are  loaded  twice.  To  check  to 
see  if  a  file  has  been  loaded  you  would  use  FIND  to  see 
if  a  word  in  that  file  has  already  been  loaded  into  the 
dictionary.  If  the  word  is  found  FIND  wil  return  a  tnie 
(non-zero)  flag  and  an  address.  When  the  non-zero  flag 
is  passed  to  7INCLUDE*  the  file  will  not  be  included 
(loaded).  If  the  word  in  the  file  is  not  found  FIND  wil 
return  a  false  (zero)  flag  and  an  address.  If  a  false  flag  is 
passed  to  7INCLUDE*  the  specified  file  will  be  loaded. 

Here  is  an  example  of  the  use  of  7INCLUDE’: 

"  FllelStUb”  FIND  <Cr>  ok  <2>  (  Chock  for  word  in  file ) 

.S  <cr>  76880  0  <-  TOP  ok  <2>  ( 0  moans  tho  word  wasn't  found ) 

SWAP  DROP  <cr>ok<1>  (  Drop  tho  addross ) 

7INCLUOE''  Fllel  **  <cr>  (  The  zero  on  top  of  tho  stack 

will  cause  7INCLUDE  to 
loadrdel ) 


See  also:  INCLUDE"  ,  FIND 
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7TERMINAL  _ 


Format:  TTERMINAL 

Action:  Checks  to  see  if  a  key  has  been  pressed.  Returns  a  true  (non-zero) 

flag  if  a  key  has  been  pressed  and  a  false  (zero)  flag  if  no  key  has  been 
pressed. 

EiramplB:  7TERMINAL  is  commonly  used  as  the  exit  test  for  a  BEGIN...UNTIL  loop. 

Execution  of  the  loop  will  terminate  when  a  key  is  pressed  : 

:  HELLO 
BEGIN 
."Hello''  CR 
7TERMINAL 
UNTIL  ;  <cr>  ok  <0> 

HELLO  <cr>  Hello 

Hello 

Hello 

Hello  <cr> 
ok  <0> 


See  also:  BEGIN 


UNTIL 
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@ _ ( 

Format: 

Action: 


Examplft: 


a  -  n) 


■  fetch ' 


Bytes  in  memory 

rnrnrnmziE 


address  @ 

Replaces  the  address  on  top  of  the  stack  with  the  the 
long-word  (32-bit)  value  stored  at  the  address. 


The  following  example  shows  that  the  @  operator  will 
return  the  32-bit  value  which  is  stored  starting  as  the 
specified  address  : 

HEX  <cr>ok  <$0> 

VARIABLE  STORAGE  <cr>ok  <$0> 

800F0  STORAGE  !  <cr>  Ok  <$0> 

I  STORAGE 


00 

08 

00 

FO 

1  byte 

1  byte 

1  byte 

1  byte 

STORAGE  &  .  <cr>  800F0  ok  <$0> 


For  Assembly  Language  Programmers: 
CODE  <9  (a  •  n) 

MOVE.L  (AS), AO 

MOVE.L  (AO), (AS) 

RTS 
ENO-COOE 
MACH 

S—  also:  I  .  W@  ,  Wl  ,  C<9  .  C! 
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Format:  ABORT 

Action:  Clears  the  pararr-iier.  return,  subroutine  and  floating  point 

stacks,  sets  the  state  -  0  (the  interpreting  state),  and  returns 
control  to  the  terminal.  No  message  is  issued. 


Exampla: 


The  following  is  a  simple  example  to  demonstrate  ABORT'S 
effect : 


:  TEST  IF  ABORT  THEN  ;  <cr>  ok  <0> 


23  >R  <cr>ok  <0> 

12  3  <cr>ok  <3> 

1  TEST  <cr>  <cr>  ok  <0> 

.  <cr>  -1  ok  <0> 

.S  <cr>  Empty  ok  <0> 


(Put  something  on  the  return  stack.) 

(Put  things  on  the  parameter  stack.) 

(This  caused  TEST  to  ABORT.  Had  to 
hit  2  carnage  returns  to  get  the  'ok' 
prompt  back.) 

(The  return  stack  hat  been  emptied. 
There  is  no  underflow  message  for 
the  return  stack.) 

(The  parameter  stack  has  been  emptied.) 


For  Advanced  Proarammerai 

ABORT  is  a  vectored  routine.  The  address  of  the  ABORT  routine  currently  being  used 
is  stored  in  the  system  variable  ABORT_VECTOR.  An  example  of  a  custom  abort 
handling  routine  is  shown  on  the  ABORT_VECTOR  glossary  page. 


See  also:  ABORT",  ABORT.VECTOR  .  QUIT 
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ABORT 

Format: 

Action: 

Example: 


VECTOR  (  ■  a) _ 

■  atxjrt-vector " 


ABORT_VECTOR 

Returns  the  address  of  the  system  variable  which  contains 
the  address  of  the  routine  currently  being  used  to  handle 
system  aborts. 

Users  may  install  their  own  custom  abort  handling  routine 
by  storing  the  address  of  the  routine  in  the  ABORT_VECTOR 
system  variable.  The  CODE  definition  ‘AbortHandler'  is  an 
example  of  a  minimal  abort  handling  routine  which  performs  the 
standard  ‘stack-resetting*  functions  normally  performed  by 
ABORT.  The  initial  positions  of  the  subroutine  stack  pointer, 
the  parameter  stack  pointer,  and  the  loop/floating  point 
stack  pointers  are  stored  in  memory  following  the  ABORT_ 
VECTOR  location: 


Address  of  abort  handling  routine 
Initial  subroutine  stack  pointer 
Initial  parameter  stack  pointer 
Initial  loop  stack/fp  stack  pointer 


ABORT_VECTOR 

ABORT_VECTOR+4 

ABORT_VECTOR+8 

ABORT_VECTOR+12 


CODE  AbortHandler  (  •  ) 

LEA  ABORT  VECTOR^a.AO 


MOVE.L  (A0)«.A7 
MOVE.L  (AOH.AS 
MOVE.L  (A0)4.,A3 
MOVE.L  A3.07 

SU8I.L  «16,D7 
PEA  QUIT 
RTS 

END-CODE 


\  gat  sub  stack  poiiTtar 
\  gat  param  stack  pointer 
\  gat  loop  stack  pointer 
\  loop  stack  and  fp  stack  start 
\  from  the  same  location 
\  reset  fp  stack  pointer 
\  execute  QUIT 


:  InatallAbort  (  •  )  \  install  custom  abort  routine 

[']  AbortHandler  ABORT.VECTOR  ! 


See  also:  ABORT,  ABORT 
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Format: 


Action; 


Example: 


See  also: 


BEGIN 

(code  to  be  executed  endlessly ) 

AGAIN 

AGAIN  is  the  second  half  of  the  BEGIN. ..AGAIN  endless 
loop  structure.  Whenever  AGAIN  is  reached,  it  reroutes 
program  execution  back  to  the  code  which  immediately 
follows  the  BEGIN.  Unless  the  loop  uses  an  unnatural  exit 
(by  using  either  an  EXIT  or  ABORT  command),  the 
BEGIN...AGA1N  loop  will  never  terminate. 

QUIT,  the  word  which  "runs"  FORTH,  is  an  example  of  an 
endless  loop  ; 

:  QUIT 
BEGIN 

(  clear  the  return  stack  ) 

(  get  Input  ) 

(  examine  and  act  upon  the  input  ) 
ok”  CR 
AGAIN  ; 


BEGIN  ,  EXIT  ,  ABORT  ,  UNTIL 
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ALLOT _ 


number-of-by1es-to-allot-in-dictionary  ALLOT 

Allocates  n  bytes  in  the  dictionary,  starting  at  the 
next  available  dictionary  location.  The  pointer  to 
the  next  available  dictionary  location  (HERE)  is 
incremented  accordingly.  Values  stored  in  the 
dictionary  space  should  be  constant  values  such 
as  arrays  of  fixed  data.  Space  for  values  which 
will  change  during  program  execution  should  be 
allocated  using  VALLOT. 

Example:  ALLOT  is  commonly  used  for  creating  arrays  of  values 

which  require  time-consuming  computations  such  as 
tables  of  angle  functions  or  square  roots.  Rather  than 
calculate  such  values  as  needed  in  a  program,  it  may 
be  feasible  to  create  a  table  of  values  during  compilation 
arxj  simply  index  into  the  table  during  execution.  The 
following  example  creates  an  array  of  the  squares  of  the 
numbers  from  0  to  100  during  compilation  ; 

DECIMAL  <cr>  ok  <0> 

CREATE  SQUARES  202  ALLOT  <cr>ok  <0> 

:  GEN-SQS 

101  0  DO 
I  I  * 

SQUARES 
W! 

LOOP  ;  <cr>ok 

GEN-SQS  <cr>  ok  <0> 

nUARES  30  2*  *  W@  ,  <cr>  900  ok  <0>  ( Indaxing  into  table.) 


I  2'  + 

<0> 


(  Calculating  the  square.) 

<  Indexing  into  the  table.) 

(  Storing  the  word-length  value.) 


Format: 

Action: 


.  W.  ,  . 


Sea  also:  VALLOT  ,  C, 


,  HERE 
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Format;  ALSO  <vocabiilary-name> 

Action:  Specifies  that  the  vocabulary  specified  by  <name>  should 

ALSO  be  added  to  the  current  dictionary  search  order.  The 
vocabulary  will  be  the  first  vocabulary  searched  in  the  new 
search  order  (the  “transient*  vocabulary).  Any  subsequent 
execution  of  WORDS  will  display  only  the  words  in  the  transient 
vocabulary  and  the  words  used  to  specify  the  search  order. 


Example:  At  the  beginning  of  a  program,  the  words  ONLY ,  ALSO  ,  and 

DEFINITIONS  Should  be  used  to  specify  the  search  order  to 
be  used  during  compilation  (loading)  of  the  program.  For 
example,  to  allow  a  program  to  access  words  from  the  FORTH, 
OS-9,  and  MATH  vocabularies  the  search  order  should  be 
set  up  as  follows: 


ONLY  FORTH  <cr>  ok  <0> 
DEFINITIONS  <cr>ok  <0> 

ALSO  OS*9  <cr>ok  <0> 
ALSO  MATH  <cr>ok  <0> 


(  FORTH  is  now  the  ONLY  vocabulary  searched.) 

(  Any  new  definitions  will  be  appended  to  the 
FORTH  vocabulary.) 

(  Now  OS-9  has  been  addou  to  tne  search  order.) 

(  Now  MATH  has  been  ^ddad  to  the  search  order.) 


The  search  order  specified  above  allows  all  words  in  the  FORTH,  OS-9,  and  MATH 
vocabularies  to  be  found.  Whenever  MACH  2  looks  for  a  word  it  will  search  the  MATH 
vocabulary  first,  the  MACH  vocabulary  second  and  the  FORTH  vocnhulary  last.  This 
search  order  may  be  visually  displayed  by  using  the  word  ORDER; 

ORDER  ecr>  ok  <0> 

Search  Order  :  MATH  OS-9  FORTH 
Definitions  :  FORTH 
ok  <Q> 


See  also:  ONLY  ,  DEFINITIONS 
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Management 


Format: 

Action: 


n1  n2  AND 


Pertorms  the  bit-by-bit  logical  'AND*  of  n1  with  n2. 
Leaves  the  result  on  top  of  the  stack. 


Example:  The  tmth  table  for  AND  is: 


A 

B 

A  AND  a 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

BINARY  <cr>  ok  <%0> 
10101010  <cr>ok  <%1> 
10001111  AND  <cr>ok  <%1> 
.  <cr>  10001010  ok  <%0> 
DECIMAL  <cr>  ok  <0> 

For  Assembly  Language  Programmers: 

CODE  AND  (  n1  n2  •  n3  ) 

MOVE.L  (AS)*, DO 

AND.L  DO, (AS) 

RTS 

END-CODE 

MACH 


See  also:  OR  ,  XOR  ,  NOT  ,  BINARY  ,  DECIMAL 
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Format:  ASCII  character 

Action:  When  used  inside  of  a  colon  definition,  ASCII  compiles  the  ascii 

value  of  the  single  character  delimited  by  spaces  as  a  literal. 
During  execution  of  the  definition  the  ascii  value  will  be  put  on 
the  stack.  When  executed  immediately,  ASCII  will  leave  the  ascii 
value  of  the  character  on  the  stack. 


Example:  The  word  GET-COMMANO  takes  a  character  from  the  user 

and  compares  it  to  a  list  of  valid  command  characters  to  determine 
which  action  the  user  specified  : 

:  GET'COMMAND  Next  command  ->  "  KEY  CR 
CASE 

ASCII  L  OF  Turning  left...”  GOLEFT  ENDOF 
ASCII  R  OF  .”  Turning  right...”  GORIGHT  ENDOF 
ASCII  F  OF  .”  Going  forward...”  GOFORWARD  ENDOF 
ASCII  B  OF  .”  Going  backwards...”  GOBACK  ENDOF 
.”  Unknown  command...” 

ENDCASE  ;  <cr>  ok  <0> 

GET'COMMAND  <cr>  Next  command ->  F 
Going  Forward...  ok  <0> 


ASCII  helps  improve  program  readability  and  elinUrutes  the  process  of  looking  up 
character  values  in  an  ASCII  table.  The  number  formatting  process  provides  a 
good  use  for  ASCII.  The  word  HOLD  requires  the  ASCII  value  of  the  character  it 
should  insert  into  the  formatted  string  on  the  stack.  To  print  out  a  number  in 
dollars  and  cents  format : 


:  $  (  n 


)  <«  «  «  ASCII  .  HOLD  «S  ASCII  $  HOLD  #>  TYPE  ; 

t  t 

Inserts  the  .  inserts  the  $ 


9999  $  <cr>  $99.99  Ok  <0> 
See  also:  LITERAL  ,  « 
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•  ASSEMBLER _ 


Format:  ONLY  ASSEMBLER  or  ALSO  ASSEMBLER 

Action:  ASSEMBLER  is  the  vocabulary  which  contains  all  of  the 

assembly  language  operators. 

When  used  with  ONLY,  ASSEMBLER  will  become  the  only 
vocabulary  included  in  the  current  search  order . 

When  used  with  ALSO,  the  ASSEMBLER  vocabulary  will  be 
appended  to  the  current  search  order.  This  will  cause 
ASSEMBLER  to  become  the  transient  vocabulary  (the 
vocabulary  which  is  searched  first).  Any  other  vocabularies  in 
the  search  order  will  be  searched  after  the  transient  vocabulary. 
WORDS  will  only  display  the  words  in  the  transient  vocabulary 
and  the  words  used  to  specify  the  search  order  when  executed. 


Example:  To  specify  a  search  order  in  which  the  ASSEMBLER  vocabulary 

will  be  searched  first  and  the  FORTH  vocabulary  second  : 

ONLY  FORTH  <cr>ok  <0> 

ALSO  ASSEMBLER  <cr».  ok  <0> 


The  word  ORDER  will  display  the  current  search  order  and 
the  vocabulary  to  which  new  definitions  are  being  appended 


ORDER  <cr> 
Search  Order  : 
Definitions 
ok  <0> 


ASSEMBLER  FORTH 
FORTH 


To  make  the  ASSEMBLER  vocabulary  the  only  vocabulary  which 
is  searched : 

ONLY  ASSEMBLER  <cr>  ok  <0> 


See  also:  ONLY  ,  ALSO  ,  ORDER  ,  DEFINITIONS 

G-69 


Dib 


Mari 


tiona 
age 


ry 

rtient 


da 


r 


!  ■  #$%4  ■  0  •  +  .  -  ■  /  0-9  :  :  <  -  >  ?  @A-Z  (\1*  •a-z{|l' 

ASSlGNMODULEfa  n.  ' _ 


Format:  ’  module  name’ 1-»-  trap#  ASSIGNMOOULE 

Action;  ASSIGNMOOULE  is  used  to  assign  trap  modules  (specified 

by  name)  to  trap  vectors.  Trap  modules  may  only  be  accessed 
through  one  of  the  16  software  exception  trap  vectors 
provided  by  the  68000  microprocessor.  Before  a  specific 
trap  module  may  be  accessed,  ASSIGNMOOULE  must  be  used 
to  lag'  a  trap  module  to  a  trap  number  so  the  system  will  know 
which  module  to  call  when  a  trap  is  executed. 

ASSIGNMOOULE  expects  to  be  passed  the  address  of  a 
C-format  string  (hence  the  1-)-  above,  see ' )  which  contains 
the  module  name,  and  the  trap  vector  to  which  the  module 
should  be  'linked'. 


Example:  Before  we  can  access  the  routines  in  the  ’Extensions’  trap 

module  we  must  specify  which  trap  vector  will  be  used  to 
access  the  trap  module: 

5  CONSTANT  ExtenslonsVector  <cr>  ok  <0> 

**  Extensions'*  l-t-  ExtenslonsVector 

ASSIGNMOOULE  <cr>  ok  <0> 

Now.  whenever  a  TRAPS  is  executed,  the  Extensions  trap 
module  will  be  called. 


See  also:  MAKEMOOULE  , 


TCALL 
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BASE _ ( 


), 


Format:  BASE 

Action:  Returns  the  address  of  the  user  variable  BASE,  whicti 

contains  the  current  task's  number  radix.  A  task's 
number  base  controls  all  number  input/output 
operations  for  the  task. 

Example:  The  following  format  is  used  to  change  the  number 

base  for  a  task  - 

n  BASE  ! 

A  stack  depth  indicator  is  included  with  the  'ok'  message.  A  punctuation  symbol 
is  used  in  the  stack  depth  indicator  to  indicate  the  current  number  base: 


DECIMAL  <cr>ok  <0> 

^  No  punctuation  sign  means  base  10  (DECIMAL) 
BINARY  <cr>  ok  <%0> 

^  A  percent  sign  (%)  means  base  2  (BINARY) 
HEX  <cr>  ok  <$0> 

^  A  dollar  sign  ($)  means  base  16  (HEXADECIMAL) 

3  BASE  I  (or  any  base  besides  those  above)  <cr>  ok  <?o> 

A  question  mark  (?)  means  a  non-standard  base  ‘ 


Some  examples  of  changing  base  • 

DECIMAL  <cr>  ok  <0> 

9  <cr>  ok  <1> 

3  BASE  I  <cr>ok  <?1> 
.  <cr>  100  ok<?> 


Set  base  to  base  1 0  -  DECIMAL. 
Put  a  decimal  9  on  the  stack. 

Change  base  to  base  3. 

9  decimal  output  when 
base  3  is  in  effect, 

^base  10"’®®  base  3 


HEX  ,  BINARY 


See  also:  DECIMAL  , 
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Format: 


A  BEGIN  loop  has  three  possible  formats: 


BEGIN 

( code  to  be  executed  while  flag  -  false ) 
flag 
UNTL 

or  BEGIN 

( code  to  be  executed  each  time  through  loop ) 
flag 
WHILE 

( code  to  be  executed  while  flag  •  true ) 
REPEAT 

or  BEGIN 

( code  to  be  executed  endlessly  ] 

AGAIN 


Action:  BEGIN  marks  the  start  of  either  the  BEGIN. . .  UNTIL.  BEGIN 

...WHILE...REPEAT,  or  BEGIN...AGAIN  loops.  If  these  loops 
repeat,  program  control  will  always  be  rerouted  back  to 
the  code  which  immediately  follows  the  BEGIN. 


Example: 


:  KEY-CHECK 
BEGIN 


( Code  to  be  executed 
while  flag  >  false ) 


( Program 
execution 
wilbe 
rerouted  by 
UNTIL  back  to 
the  code  which 
follows  BEGIN  if 
the  flag  passed 
to  UNTIL  is  false.) 


."Nokeyyer  CR 
7TERMINAL 
UNTIL  ; 

(  TTERMINAL  leaves  flag 
on  stack  indicating 
whether  or  not  key  has 
been  pressed. ) 


See  Also:  UNTIL  ,  7TERMINAL  ,  WHILE  ,  REPEAT  ,  AGAIN 
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Fonnat:  BINARY 

Action:  Sets  the  current  task's  number  base  -  which  controls 

all  number  input/output  operations  for  the  system  -  to 
binary.  The  stack  depth  indicator  will  contain  a  %  sign 
when  the  system  is  in  the  binary  base. 


Examnlfl: 

DECIMAL  <cr>  ok  <0> 
16  <cr>  ok  <1> 
BINARY  <cr>ok  <%1> 
.  <cr>  10000  ok  <%0> 


DECIMAL  <cr>  ok  <0> 

:  NUMBERS  CR  10  0  DO  I  .  LOOP  ;  <cr>  ok  <0> 
BINARY  <cr>  ok  <%0> 

NUMBERS  <cr> 

0  1  10  11  100  101  110  111  1000  1001  ok  <%0> 


The  ctefinition  of  BINARY  is  • 

DECIMAL  <cr>  ok  <0> 

:  BINARY  2  BASE  I  ;  <cr>ok  <0> 


See  also:  DECIMAL  ,  HEX  ,  BASE 
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BLK 

(  -  a) 

Forniat: 

BLK 

Action; 

Puts  on  the  stack  the  address  of  the  system  variable  whose 
contents  indicate  the  location  of  the  current  input  stream 
(see  table  betow).  BLK,  >IN,  TIB  and  #TIB  are  the  four  system 
variables  responsible  for  maintaining  control  of  the  input 
stream. 

Example: 

BLK  Value 

-2 

-1 

0 

>0 

Input  Stream 

Serial  port 

Text  tile  (loading  from  a  text  file) 

Text  Input  Buffer  (TIB) 

Single  block  buffer  (the  number 
indicates  which  block) 

■  b-l-k  • 


CURRENT-INPUT-STREAM  will  print  out  which  source  is  being  used  as  the  current 
input  stream  when  it  is  executed  : 

;  CURRENT-INPUT-STREAM  BLK  & 

OUP  0>  IF 

“  Block  ••  . 

ELSE 

CASE 

-1  OF  ."TextFlle"  ENOOF 
0  OF  Text  Input  Butter  ENDOF 
ENDCASE 
THEN 

;  ok  <0> 


CURRENT-INPUT-STREAM  <cr>  Text  Input  Butter  ok  <0> 

Since  CURRENT-INPUT-STREAM  was  executed  trom  the  keyboard,  the  text'input 
butter  was  being  used  as  the  current  input  stream.  It  BLK  contains  a  positive 
number,  a  single  block  is  being  loaded  and  the  block  nunr^rwill  be  printed  out. 

It  BLK  contains  a  negative  number  or  zero,  the  name  ol  the  corresponding  input 
stream  source  will  be  printed.  Put  the  entire  example  above  in  a  tile  and  try  loading 
the  file  as  a  fie  and  as  a  single  block  to  generate  the  other  possible  messages. 


Sm  also:  >IN  ,  TIB  ,  «TIB 
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(Ji_i_a) _ 


Format;  n  BLCXK 

Action:  BLOCK  expects  a  number  on  the  stack  which  specifies  a 

certain  block  (a  block  is  1024  bytes  of  data)  within  the  currently 
open  file,  if  the  specified  block  is  not  available  in  memory, 
BLOCK  will  read  it  into  the  least  recently  accessed  block  buffer 
and  put  the  address  of  the  buffer  on  the  stack,  if  the  specifed 
block  is  available  in  a  block  buffer  in  memory,  BLOCK  will  leave 
the  address  of  that  buffer  on  the  stack.  The  first  block  in  a  file 
is  block  0. 


Example:  In  the  following  example,  the  address  of  the  first  byte  of 

the  fourth  block  in  the  current  file  for  the  system  is  requested. 
BLOCK  will  only  read  this  block  in  from  disk  if  it  determines 
that  the  block  is  not  already  in  a  block  buffer: 

HEX  <cr>  ok  <$0> 

3  BLOCK  <cr>74FA6  ok  <$0> 


If  BLOCK  determines  that  the  requested  block  is  not  in  memory,  BLOCK  will 
figure  out  which  block  buffer  was  the  least  recently  accessed  and  use  that  buffer 
for  the  next  blockof  information.  If  that  buffer  was  marked  as  UPDATE'd,  BLOCK 
will  first  write  the  buffer  contents  out  to  disk.  BLOCK  will  only  read  in  a  block  from 
disk  if  the  block  contents  are  not  already  in  a  buffer  in  mermry. 


Sea  also:  FILEIO  ,  BUFFER 


LIST 
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BODY>LINK  <ai  .a2) _ 

■  body-to-link  * 

Format:  parameter-field-address  BODY>UNK 

Action:  BOOY>LINK  takes  the  address  of  the  start  of  the 

executable  code  for  a  word  (the  PFA),  as  returned 
by  *'  *  or  [1 ,  and  returns  the  address  of  the  link 
field  for  the  word  ( the  LFA). 


Example:  The  following  sequence  may  be  used  to  display  the 

dictionary  header  for  the  word  DUP  : 


'  OUP  BOOY>LINK  10  DUMP 


Sm  also:  LINK>BOOY  ,  '  ,  □ 
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Format:  n  BUFFER 

Action;  Assigns  a  buffer  to  block  n  of  the  cun’ently  open  file  and 

leaves  the  address  of  the  buffer  on  the  stack.  BUFFER 
does  not  move  the  contents  of  the  specified  block  from 
storage  to  memory.  BUFFER  is  identical  to  BLCX^K 
except  it  does  not  initially  read  in  the  data  from  disk. 

The  first  block  in  a  file  is  block  number  0. 

Example:  In  the  following  example,  a  buffer  is  assigned  to  block 

number  five  in  the  current  file  for  a  task  : 

HEX  <cr>  ok  <$0> 

5  BUFFER  <cr>ok  <$1> 

<cr>  757A6  ok  <$0> 

Setting  the  Current  File 

The  FORTH  disk/storage  I/O  words  all  act  upon  the  current  file.  The  current  file  is 
the  file  whose  word-length  (l 6-bits)  path  number  is  stored  in  the  system  variable  FILEID. 
Each  time  a  file  is  successfully  opened,  a  path  number  which  unk^ely  identifies 
the  file  is  returned.  To  make  the  file  the  current  file,  this  path  number  should  be 
stored  into  the  FILEID  system  variable.  BLOCK,  BUFFER,  LIST,  and  LOAD  use  FILEID 
to  determine  which  file  to  access.  An  example  of  making  a  file  cunent  is  given  below: 


( Open  the  file  MyRIe. 

SOPEN  will  return  a  path  number.) 
( Store  this  path  nurTt>er  in  FILEID. 
Now  MyFile  is  the  current  file. ) 


See  also:  BLOCK 


ALSO  OS>9  <cr>ok  <0> 

”  NyFlle"  U  $OPEN  ,  <cr>  4  ok  <0> 


4  FILEID  W!  <cr>  ok  <0> 


BYE 
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Format: 

Action: 


Assembly  Note: 


See  also:  $ 


BYE 

Used  to  leave  MACH2  and  return  to  the  OS-9  shell. 
Restores  the  previous  terminal  characteristics  and  uses 
F$Exit  to  terminate  the  MACH2  process. 


This  is  how  F$Exit  could  be  catted  from  assembly  language: 


CODE  ByeBye  ( 
MOVED. W 
OS9 

END-CODE 


•  ) 

«0,D1 

FSExit 


\  status  code  to  return  to  parent 
\’cairF$Exit 
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Q  y _ iS—). 


■  c-comma  ” 


Format:  8-bit-value  C. 

Action:  Lays  the  8-bit  value  into  the  next  available  memory 

location  in  the  dictionary.  The  pointer  to  the  next  available 
dictionary  location  is  incremented  by  1  byte. 


Example:  In  the  following  example,  a  table  of  data  is  being  created 

in  the  dictionary.  CREATE  is  used  to  make  the  dictionary 
header  (only  the  contents  of  a  definition  are  kept  in  the 
dictionary,  the  headers  are  kept  in  a  separate  location). 
Next,  C,  is  used  to  lay  the  desired  data  into  the  dictionary. 
Each  time  C,  is  used,  the  HERE  pointer  (the  pointer  to 
the  next  available  dictionary  location)  is  incremented  by 
1  byte.  When  TABLE  is  executed,  it  will  push  the  address 
of  the  first  byte  of  data,  the  A,  on  the  stack  : 


CREATE  TABLE  <cr>  ok  <0> 


ASCII 

A 

c, 

<cr>ok  <0> 

ASCII 

B 

C. 

<cr>ok  <0> 

ASCII 

C 

c. 

<cr>ok  <0> 

TABLE 

C<3> 

EMIT  <cr>  A  ok  <0> 

TABLE  2*  C&  EMIT  <cr>  C  Ok  <0> 


NOTE: 

It  is  not  necessary  to  keep  track  of  address  boundaries  when  using  C,  since  all  other 
wonjs  which  affect  the  HERE  pointer  (the  pointer  to  the  next  available  dictionary 
location)  will  adjust  the  pointer  to  an  even  boundary  before  preceding. 


,  ,  W,  ,  ALLOT  ,  HERE 


See  also: 
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Compilation 

Word 


Format: 

Action: 


c-fetch 


address  C@ 

Replaces  the  address  on  top  of  the  stack  by  the  8-bit  value 
which  is  stored  at  the  address.  The  upper  3  bytes  of  the 
4  byte  value  returned  are  set  to  zero. 


Example:  The  following  example  shows  that  the  C@  operator  will 

return  the  8-bit  value  which  is  stored  starting  as  the 
specified  address : 

HEX  <cr>ok  <$0> 

VARIABLE  STORAGE  <cr>ok  <$0> 

IF  STORAGE  C!  <cr>  ok  <$0> 


Bytes  in  memory : 


V 


STORAGE 


For  Assembly  Language  Programmers: 


C@  (  a 

•  c) 

MOVE.L 

(AS), AO 

CLR.L 

DO 

MOVE.B 

(AO), DO 

MOVE.L 

D0,(A5) 

RTS 

END-CODE 

MACH 

See  also:  C! 
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CASE 


Format:  CASE  is  used  in  the  following  format: 

CASE 

n  OF  ( code  executed  if  n  is  matched )  ENDOF 
nl  OF  ( code  executed  if  n1  is  matched )  ENDOF 
n2  OF  ( code  executed  if  n2  is  matched )  ENDOF 


nn  OF  (  code  executed  if  nn  is  matched )  ENDOF 
( code  executed  if  no  match  was  made  aix)ve ) 

ENDCASE 

Action:  CASE  marks  the  beginning  of  the  CASE.. .OF.. .ENDOF.. .ENDCASE 

program  control  structure  (also  referred  to  as  a  CASE  statement). 

The  number  on  the  stack  is  compared  to  each  number  preceding  an 
OF...ENDOF  pair  until  either  a  match  is  found  or  until  there  are  no  more 
OF..ENDOF  pairs  left.  If  a  match  is  made,  the  number  wil  be  dropped 
from  the  stack  and  the  code  between  the  corresponding  OF  and 
ENDOF  wilt  be  executed.  Upon  reaching  the  ENDOF,  program  control 
will  be  redirected  to  the  cods  which  immediately  follows  the  ENDCASE. 
If  no  match  is  made,  any  code  between  the  last  ENDOF  and  the 
ENDCASE  will  be  executed.  After  this,  ENDCASE  executes.  Its 
function  is  to  drop  the  top  number-the  unmatched  number-from  the 
stack.  Any  number  of  OF...ENDOF  pairs  may  be  used  within  a  CASE 
statement. 


See  also:  OF  ,  ENDOF  ,  ENDCASE 
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c-move 


Format:  source-addr  destination-addr  #of-bytes  CMOVE 

Action:  Moves  n  bytes  located  starting  at  the  source  address  to  memory 

starting  at  the  destination  address.  The  move  begins  with  the 
first  byte  in  the  source  string  and  continues  until  the  last  byte 
in  the  source  string  has  been  moved.  CMOVE  is  good  for 
moving  strings  down  toward  lower  memory  locations. 

Eirample:  The  following  example  creates  an  anay  of  ascii  characters  in 

the  variable  space  (  using  VARIABLE  and  VALLOT ),  and  then 
shifts  the  whole  array  12  bytes  downward  in  memory. 

VARIABLE  OEST  8  VALLOT<cr>  ok  <0> 

VARIABLE  SOURCE  8  VALLOT  <cr>  ok  <0> 

SOURCE  12  EXPECT  <crMACH  2<cr>  ok  <0> 

SOURCE  OEST  12  CMOVE  <cr>  ok  <0> 

DEST  10  DUMP  <cr> 

076SOE:  4D41  4348  2031  ODFF  FFFF  FFFF  FFFF  FFFF  MACH  2  .UUClUUUUUU 

ok  <0> 


See  also:  CMOVE>  ,  DUMP  ,  VALLOT 


!•#$%&■()*♦.-•'  0-9  ;:<->?  @A-Z  (\1''  a-zdl- 

CMOVE>  _(?1  g2  g  ■_) - 

'  c-move-up ' 


Format;  source-addr  destination-addr  #of-bytes  CMOVE> 

Action:  Copies  a  region  of  memory  n  bytes  long,  beginning  at  the 

source  address,  to  memory  beginning  at  the  destination 
address.  The  move  starts  by  moving  the  last  byte  in  the 
source  string  to  the  last  position  in  the  destination  string 
and  continues  until  the  first  byte  in  the  source  string  has 
been  reached  and  moved.  This  version  of  CMOVE  is  usually 
used  for  sliding  strings  toward  higher  memory  locations. 


Evamola:  The  following  example  creates  a  string  of  ascii  characters 

in  memory  and  then  shifts  the  entire  string  2  bytes 
toward  higher  memory. 

VARIABLE  SOURCE  4  VALLOT  <cr>ok  <0> 

SOURCE  8  EXPECT  <t»fiLLO<cr>  ok  <0> 

SOURCE  10  DUMP  <cr> 

0765DE;  4845  4C4C  4F00  FFFF  FFFF  FFFF  FFFF  FFFF  HELLO  .  UUUUUUUUUU 
Ok  <0> 

SOURCE  SOURCE  2*  8  CMOVE>  <cr>  ok  <0> 

SOURCE  10  DUMP  <cr> 

07650E:  4845  4845  4C4C  4F00  FFFF  FFFF  FFFF  FFFF  HEHELLO  .  OOuOOOuO 
Ok  <0> 

If  CMOVE  had  been  used  instead  of  CMOVE>  the  results  would  have  been  much  different. 
Because  CMOVE  starts  moving  bytes  from  the  beginning  of  the  string,  when  it  is  used  to 
shift  bytes  up  towards  higher  memory  locations,  it  will  cause  this  overwrite  error : 

SOURCE  SOURCE  2*  8  CMOVE  <cr>ok  <0> 

SOURCE  10  DUMP  <cr> 

0765DE;  4845  4845  4845  4845  4845  FFFF  FFFF  FFFF  FFFF  HEHEHEHEHEUUUUUU 
Ok  <0> 


y 


Sm  also:  CMOVE  ,  FILL 
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CODE 


Format:  CODE  <name-of-routine> 

...asserrtjty  language... 

END-CODE 

Action:  Defining  word,  similar  to  : .  which  is  used  to  create  new 

dictionary  entries.  The  compile-time  action  of  CODE  involves 
creating  a  new  header  for  the  name  which  follows  it,  putting 
the  system  into  the  compiling  state,  adding  the  ASSEMBLER 
to  the  dictionary  search  order  and  setting  the  smudge  bit  of 
the  new  definition  so  that  the  definition  will  not  be  visible  until 
completed. 

The  opcodes  for  the  assembly  language  words  used  between 
CODE  and  END-CODE  will  be  compiled  into  the  new  definition. 

Example:  CODE  is  used  below  to  create  the  word  WIPEOUT.  Kmn, 

WIPEOUT  will  destroy  large  portions  of  the  cun-ent  contents 
of  the  computer's  merrtory  so  please,  do  NOT  try  this  at 
home  I  Notice  that  the  MACH  2  assembler  allows  normal, 
assembly  language  branches  to  occur  within  CODE  definitions. 


CODE  WIpeOut 
^1  CLR.L  (AO)-t- 
BRA.S 
ENO-COOE 


(New  word  WIPEOUT  created.) 

(Assembler  vocabulary  now  included  search 
order.) 

(CODE  definitions  end  with  END-CODE.) 


For  Advanced  Preorammers: 

Note  that  the  mnemonics  in  the  assembler  vocabulary  are  all  immediate  words 
which  compile  their  corresponding  opcodes  into  the  definition  being  created. 


END-CODE  ,  ;CODE  ,  MACH. 


See  also: 
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COMPILE 


Format:  Generally  used  in  the  format  - 

:  <forth-definjtion> 

COMPILE  njn-time-vwrd 
. . .  code  to  be  executed  during  compilation  . . .  ; 
IMMEDIATE 


Action:  Although  <forth-definition>  is  an  immediate  word, 

COMPILE  will  force  the  word  following  it 
( <run-time-word> )  to  be  compiled,  instead  of  run,  when 
<forth-definition>  executes.  When  <forth-definition>  is 
later  used  within  another  definition,  only  <tun-time- 
word>  will  be  compiled  into  the  definition,  the  other 
words  in  <forth-definition>  will  run  immediately  and 
will  not  generate  any  corrrpiled  code.  This  type  of  word 
is  known  as  a  compiling  word.  When  compiling  words 
are  used  in  the  creation  of  a  new  definition  they  perform 
oompae-time  actions  and  may  compile  run-time  code 
into  the  new  word.  In  <forth-definition>,  <iun-time-word> 
is  the  ain-time  code  which  would  be  compiled  into  a  new 
word  and  'code  to  be  executed  during  compilation*  is  the 
compile-time  actions  which  would  be  performed. 


Example;  DO  is  an  example  of  a  FORTH  compiling  word  which  does 

add  run-time  code  to  the  word  being  defined  (this  is  a 
simplified  version  of  DO) : 


:  2>R  »R  >R  ;  <cr>ok  <0> 

:  DO  COMPILE  2>R  HERE  ;  IMMEDIATE  <cr»  ok  <0> 

z'  \  ^ 

run-time  code  code  executed  compiling  words 

which  is  compiled  during  compilation  are  always 

in  the  definition  immediate 

which  contains  DO 

During  compilation  of  a  new  definition,  DO  must  leave  the  current  address 
on  the  stack  so  LOOP  will  know  how  far  back  it  wil  have  to  jump  if  looping 
is  ever  required.  All  that  DO  wil  leave  in  the  final  compiled  version  of  the 
new  word  is  the  run-time  action  of  DO  which  is  to  move  two  numbers 
from  the  parameter  stack  to  the  loop  stack. 

See  also:  [COMPILE]  .  IMMEDIATE 
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Format:  32-bit-value  CONSTANT  <name> 

Action;  Defining  word  which  creates  a  dictionary  entry  using  <name> 

and  stores  the  32-bit-value  in  its  parameter  field.  The 
run-time  action  of  words  created  by  CONSTANT  is  to  push 
the  value  in  their  parameter  field  on  the  stack. 


Example:  A  high-level  definition  of  CONSTANT  could  be: 

:  CONSTANT  (  n  •  )  CREATE  .  DOES>  &  ; 

5280  CONSTANT  FT/MILE  <cr>  ok  <0> 

FT/MILE  .  <cr>  5280  ok  <0> 

In  MACH  2  oonstants  and  variables  are  state  dependent  words.  The  above 
definitions  of  is  a  simplified  version  of  the  actual  CONSTANT  definition. 


See  also:  VARIABLE  ,  CREATE  .  DOES* 
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CONVERT  fnl  a1  -  n2  a2 ) _ 


Format:  seed  address-of-string-to-be-converted  CONVERT 

Action :  CONVERTS  the  ascii  string  at  the  specified  address  to  a 

binary  number.  CONVERT  expects  on  the  parameter  stack  a 
single-length  (32-bit)  number  and  the  address  of  the  string. 

The  string  conversion  process  begins  with  the  second  byte  in 
the  string,  the  first  byte  (assumed  to  be  a  length  byte)  is  skipped. 
CONVERT  continues  working  on  the  string,  and  accumulating 
the  converted  number  into  the  seed  on  the  stack,  until  it 
encounters  an  ascii  value  which  does  not  represent  a  valid  digit 
in  the  current  number  base.  CONVERT  leaves  on  the  stack  the 
single-length  value  of  the  number  it  has  CONVERTed  so  far  and 
the  address  of  the  first  invalid  ascii  value  it  encountered. 


Pvample:  In  the  following  example,  a  strir^  to  be  CONVERTed  to  a  number 

is  stored  into  a  variable  location  using  EXPECT.  Then  CONVERT  is 
used  to  convert  the  string  to  a  number : 


DECIMAL  <cr>  ok  <0>  (  CONVERT  oonvwts  the  string  to  a  number  with  regard  to 

the  currant  number  baae.) 


VARIABLE 
4  VALLOT 


STORAGE 


STORAGE  <cr>ok  <0> 
<er>ok  <0> 


(  The  string  will  be  stored  in  the  variable 
STORAGE.  4  extra  bytes  have  been 
allocated  for  STORAGE  so  a  string  which 
contains  up  to  8  bytes  may  be  kept  in 
STORAC^) 


U  8  EXPECT  <er»  432-4000  <cr>ok  <0> 


(  EXPECT  will  start  storing  the  string  in  the  second  byte  of 
STORAGE  since  CONVERT  skips  past  the  first  byte  In  the 
string.) 

0  STORAGE  CONVERT  <cr>ok  <2> 


.S  <cr>432  441468  <-  TOP  Ok  <2> 
C®  EMIT  <cr>  -  Ok  <1> 

t 

(The  first  unconvertable  character 
CONVERT  encountered  was  the 
minus  sign.) 


(  The  address  on  top  of  the  stack  points  to  ) 

(  the  first  unoonvertabla  character  ) 

(  CONVERT  encountered.  This  should  be  the  ) 

(  The  second  number  is  the  value  of  the ) 

(  number  CONVERT  has  managed  to  convert  so  ) 

(  far.  If  the  number  passed  to  CONVERT  had  not ) 
(  been  a  zero,  the  CONVERT  would  have ) 

(  appended  the  432  to  the  end  of  the  original ) 

(  numbor-i.e.  if  the  number  had  been  a  98, ) 

(  CONVERT  would  have  returned  a  98432.) 


Sm  also:  EXPECT  ,  VARIABLE  ,  VAUOT  .  NUMBER? 
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Format:  address-of-length-byte-ot-siring  COUNT 

Action:  Given  the  address  of  the  length  byte  ot  a  string  in  memory, 

COUNT  will  push  the  address  where  the  text  of  the  string 
actually  begins  ( old  address+i  to  skip  over  length  byte ) 
and  the  length  of  the  string  on  the  stack.  COUNT  is  partic¬ 
ularly  useful  for  setting  a  string  up  for  TYPE  since  the 
stack  after  COUNT  holds  the  two  values  TYPE  expects. 

Example:  “  returns  the  address  of  a  string  in  memoiy  : 

"hello"  <cr>ok  <i> 

COUNT  TYPE  <cr>  hello  ok  <0> 


In  this  example  the  stack  is  displayed  after  COUNT  to  show  the  length  and  address 
left  by  COUNT : 

"  HI  !"  <cr>ok  <1> 

COUNT  <cr>ok  <2> 

•S  <cr>  17795  4  <-  TOP  ok  <2> 

TYPE  <cr>  Hi !  ok  <0> 


See  also:  TYPE  ,  " 
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COUNTER _ 


Format:  COUNTER 

Action:  Zeros  a  variable  to  be  used  for  keeping  track  of  time 

and  initiates  the  start  of  a  timing  process.  The  clock 
rate  (the  number  of  ticks  per  second)  is  usually  100 
hertz. 


SxamBlC  The  following  example  shows  how  COUNTER...TIMER  may 

be  used  to  time  a  null  loop: 


:  NULL-LOOP 
COUNTER 
10000  0  DO  LOOP 
TIMER  ;  <cr>  Ok  <0> 

NULL-LOOP  <cr>  2  ticks  |  100  hertz  ok<0> 

Note  that  the  time  returned  by  COUNTER...TIMER  is 
dock  rate  dependent. 


See  also:  TIMER 
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Format:  CR 

Action:  Prints  a  carriage  return  ar)d  linefeed. 


Example:  The  following  word  prints  ’hello  !*  on  the  screen  10  times. 

A  CR  is  inserted  once  each  time  though  the  loop  so  that 
each  liello  !”  will  be  on  its  own  line  - 

:  HELLO  CR  10  0  DO  hello  r  CR  LOOP  ;  <cr>  ok  <0> 
HELLO  <cr> 

hello  ! 
hello  ! 
hello  ! 
hello  ! 
hello  ! 
hello ! 
hello  ! 
hello ! 
hello ! 

hello !  ok  <0> 
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CREATE 


Format:  CREATE  <name> 

Action:  Defining  word  which  builds  a  header  for  <name>  in  the 

names  space. 

Example:  CREATE  is  commonly  used  to  build  defining  words. 

An  example  of  a  useful  defining  word  is  the  word  ARRAY 
which  defines  a  two-dimensional  array  : 

:  INDEX-ARRAY  {  X  y  addr  |  cols  Index  ~  a  } 
addr  ®  •>  cols 
cols  y  *  ->  Index 
X  addr  *  Index  «  4  >  ; 

:  ARRAY  {  rows  cols  -  ) 

CREATE 
cols  . 

rows  cols  *  ALLOT 
OOES> 

INDEX-ARRAY  ; 

2  3  ARRAY  HOLLYWOOD-SQUARE  ( Define  a  2x3  array. ) 

1  2  HOLLYWOOD-SQUARE  C@  { Index  into  array. ) 


See  also:  HERE  ,  ALLOT  ,  VARIABLE  ,  VALLOT 
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II± _ { 

Format: 

Action: 


dl  d2  •  d3  ) _ 

■  d-pius  * 

dl  d2  D-f 

Adds  two  64-bit  numbers  and  leaves  the  64-bit 
sum  on  the  stack. 


See  also:  0<  ,  DNEGATE 
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Format: 

Action: 


Sm  also: 
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(  dl  d2  ■  f ) _ 

■  d-less-than " 

d1  d2  D< 

Compares  the  two  double-length  (64-bit)  numbers 
on  top  of  the  stack.  Returns  a  true  (non-zero)  flag  if 
di  is  less  than  d2  and  a  false  (zero)  flag  if  dl  is  not 
less  than  d2. 


,  DNEGATE 
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•  DEBUG _ 


Format:  DEBUG  or  DEBUG  <riame-of-FORTH-word> 

Action:  Used  to  invoke  the  debugger.  If  DEBUG  is  executed 

immediately  it  will  cause  the  debugger  to  be  immediately 
entered.  If  DEBUG  is  executed  immediately  with  the 
name  of  a  FORTH  word  followtng  it  a  breakpoint  will  be 
set  at  the  first  instruction  in  the  word.  The  next  time  the 
word  is  executed,  the  debugger  will  be  entered.  DEBUG 
may  also  be  compiled  into  a  definition. 

Example:  Three  ways  to  set  a  breakpoint  at  the  first  instmction  in  the 

word  FRED:  :  FRED  DUP  .  ; 


#1 .  Interactively  install  a  breakpoint  at  the  first  instmaion  of  FRED: 

DEBUG  FRED  <cr>ok<0> 

FRED  <cr> 

OOA544:  MOVEL  (AS), -(AS)  DUP 


The  next  time  FRED  is  executed  the  debugger  will  stop  execution  arxf  display 
the  first  instruction  in  FRED. 


#2  Compile  DEBUG  into  the  FRED  definition: 


:  FRED  DEBUG 
FRED  <cr> 


DUP 


<cr>  ok  <0> 


00A544:  MOVEL  (AS), -(AS) 


DUP 


The  next  time  FRED  is  executed  the  debugger  will  stop  execution  and  display 
the  first  instruction  in  FRED. 


#3  Interactively  execute  DEBUG  and  set  a  breakpoint  at  FRED: 
DEBUG  <cr> 

FF4E72:  TST.L  (AS) 

>  BR  FRED  <cr> 
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DECIMAL 


Format;  DECIMAL 

Action;  Sets  the  system  number  base  -  which  affects  all 

number  input/output  operations  -  to  decimal. 
The  stack  depth  indicator  does  not  contain  a 
punctuation  sign  when  the  base  is  DECIMAL. 

Example: 

DECIMAL  <cr>  ok  <0> 

:  NUMBERS  CR  10  0  DO  I  .  LOOP  ;  <cr>  ok  <0> 

NUMBERS  <cr> 

0123456789ok<0> 


The  definition  of  DECIMAL  is  • 

:  DECIMAL  10  BASE  !  ;  <cr>  ok  <0> 


See  also:  BASE  ,  HEX  ,  BINARY 
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Format: 

Action: 


Example: 


<vocabulary  name>  DEFINITIONS 

Makes  the  transient  vocabulary  (the  vocabulary  which  is 
currently  being  searched  first  in  all  dictionary  searches)  the 
vocabulary  to  which  all  subsequer^  definitions  will  be 
appended. 

If  DEFINITIONS  is  used  after  ONLY,  i  will  make  the  only 
vocabulary  being  searched  the  vocabulary  to  which  any 
new  definitions  will  be  appended  : 


DEFINITIONS  <cr>ok  <0> 


ONLY  FORTH  <cr>  ok  <0>  ( At  this  point,  ONLY  the  FORTH  vocabulary  is  being 

searched  which  means  the  FORTH  vocabulary  must 
be  the  vocabulary  which  is  being  searched  first.) 

DEFINITIONS  <cr>Ok  <0>  (  DEFINITIONS  will  see  that  the  FORTH  vocabulary 

is  being  searched  first  and  will  ntake  the  FORTH 
vocabulary  the  vocabulary  to  which  aH  new 
definitiona  will  be  appended.) 

If  DEFINITIONS  is  used  after  ALSO,  it  will  make  the  vocabulary  whose  name  was  just 
passed  to  ALSO  the  vocabulary  to  which  new  definitions  will  be  appended  : 


ALSO  ASSEMBLER  <cr>ok  <0>  ( This  use  of  ALSO  will  make  ASSEMBLER  the 

new  transient  vocabulary. ) 

DEFINITIONS  <cr>  ok  <0>  (  Since  the  ASSEMBLER  vocabul^  is  now 

the  vocabulary  being  searched  first, 
DEFINITIONS  will  make  any  subsequent 
definitions  be  appended  to  the  ASSEMBLER 
vocabulary. ) 

The  word  ORDER  will  display  the  vocabulary  to  which  new  definitions  are  currently  being 

appended  : 

ORDER  <cr> 

Search  Order  :  ASSEMBLER  FORTH 

New  Definitions  :  ASSEMBLER 
ok  <0> 


ASSEMBLER  FORTH 
ASSEMBLER 


See  also:  ONLY  ,  ALSO  ,  ORDER 
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DEPTH _ (^) _ 

Format:  DEPTH 

Action:  Returns  a  count  of  the  number  of  items  on  the  parameter 

stack. 


Example:  10  20  30  40  SO  60  70  <cr>ok  <7> 

DEPTH  .  <cr>7  ok  <7> 


The  depth  is  7  since  there  are 
seven  items  on  the  stack. 


See  also:  .S 


G-96 


FORTH 

Tool 


DISK 


!•#$%&•()*  +  .-■/  0-9  :;<->?  @A-Z  (\1*_  'a-zf II- 


Format: 

Action: 


Example: 


DISK 

Puts  on  the  stack  the  address  of  a  variable  which  holds  the 
file  system  result  code  for  the  most  recent  file  access. 


The  following  definition  cukj  be  used  to  check  the  result 
of  BLOCK: 

:  DISK-ERROR? 

DISK  W® 

?DUP 

IF 

CR  .*•  Disk  Error  . 

THEN 
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DNEGATE  (d-di _ 


Format:  d  DNEGATE 

Action:  Changes  the  sign  of  the  double-length  (64-bit) 

number  on  top  of  the  stack  (two's  complement) 
The  negation  of  d  is  d  »  0  -  d .  '  d-negate  * 


See  also:  D<  , 
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P  Q _ (  Pi  n2.  -  ) _ 


Format:  There  are  two  formats  for  DO  loops: 

imit  index 
00 

{ code  to  be  executed  each  time  through  loop ) 
LOOP 

or  limit  index 
CX) 

( code  to  be  executed  each  time  through  loop ) 
irKxement  value 
4L00P 


Action:  DO  marks  the  beginning  of  the  DO. .  LOOP  or  DO. .  .+LOOP 

program  control  structures.  DO  loops  are  used  when  a 
certain  sequence  of  operations  must  be  executed  a  known 
number  of  times.  The  two  numbers  passed  to  DO  are 
called  the  limit  ( nl )  and  index  ( n2 )  and  are  used  by 
either  LOOP  or  >LOOP  to  determine  the  number  of  times 
the  code  within  the  loop  should  be  executed.  DO  is 
executed  only  once  and  its  action  is  to  move  the  limit 
and  index  to  the  loop  stack  for  LOOP  or  -t-LOOP. 


Example:  :  NUMBERS  5  0  DO  I  .  LOOP  ;  <cr>ok  <0> 

NUMBERS  <cr>0  1  2  3  4  ok  <0> 


The  effect  of  DO- 

Parameter  and  loop  stack 
right  before  DO: 


Parameter  and  loop  stack 
right  after  DO: 


Param  Loop 


See  Also:  LOOP  ,  ♦LOOP  ,  I  ,  J 


Param 


Loop 


Fyogram 
dontrol 
Structi  re 
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DOES>  (  •  a>  run-time _ (■^)_compilinQ _ 

"does " 

Format;  :  <new  defining  word> 

(compile-time  behavior) 

CX)ES> 

(run-time  behavior) 


Action:  Used  in  the  definition  of  a  new  defining  word  to  define  the  mn-time 

action  of  words  created  by  the  defining  word.  The  words  which  follow 
OOES>  in  a  defining  word  definition  will  be  executed  by  words 
created  by  the  defining  word,  not  by  the  defining  word  itself.  When 
a  word  created  by  a  defining  word  which  uses  OOES>  is  executed,  its 
parameter  field  address  is  pushed  on  the  stack  and  then  any  words 
following  OOES>  are  executed. 


Example:  The  defining  word  CONSTANT  could  be  defined  as  follows: 


:  CONSTANT  (  n 
CREATE 


DOES> 

<3> 


( CraatM  a  naw  dictionary  antry  using 
tha  naxt  nama  in  tha  in|^  straam. ) 

(  Storas  tha  constants  valua  in  its 
own  paramatar  fiald. ) 

( Marks  tha  and  of  tha  compila-tima 
bahavior  and  tha  baginning  of  tha 
run-lima  bahavior. ) 

(Whan  a  word  craatad  using  CONSTANT  . 
is  axacutad  DOES>  will  push  tha  word's 
paramatar  tiald  addrass  on  tha  stack. 

@  gats  tha  valua  which  was  storsd  in 
paramatar  fiakf  during  compilation  and 
puts  it  on  tha  stack. ) 


12  CONSTANT  DOZEN  <cr>  Ok  <0> 
DOZEN  .  <cr>12  ok  <0> 


See  also:  CREATE 


Compila 

Wore 
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Format:  n  DROP 

Action:  Removes  the  top  item  on  the  stack. 


Example:  3  2  DROP  <cr>  ok  <1> 


Fflf.Assemtitv.  Language  Programmers: 

CODE  DROP  (  n  •  ) 
AOOQ.L  «4,A5 
RTS 
ENO-COOE 
MACH 


See  also:  OUP  ,  OVER  ,  PICK 
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(an  ■  ) 


Format; 

Action: 


Example: 


:  GreetStrIng 

GreetString  10  DUMP  <cr> 

23  45  67  89  AB  CD  EF  01  23456789ABCDEF01 

055192:  601A  0848  656C  6C6F  2021  2100  2B1F  4E75  a. . Hello Nu 

ok  <0> 


address  count  DUMP 

Displays  the  contents  of  n  memory  locations  starting 
at  the  specified  address.  The  contents  of  memory 
locations  are  always  displayed  as  hexadecimal  ascii 
values  in  groups  of  16  bytes. 


It  is  convenient  to  use  DUMP  for  examining  string 
data  in  memory: 


(  -  )  •*  Hello  !!  “  ;  <cr>  ok  <0> 
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•  mm 

Format: 

Action: 


^  n  ■  n  n) _ 

n  DUP 

Duplicates  the  number  on  top  of  the  stack. 


"  dupe ' 


giramBfe:  6  DUP  <cr>  ok  <2> 

.S  <cr>  6  6  <-  TOP  Ok  <2> 


For  Assembly  Language  Programmers: 


CODE  DUP  (  n  •  n  n  ) 

MOVE.L  (AS), -(AS) 

RTS 

END-CODE 

MACH 

See  also:  DROP  ,  OVER  ,  PICK  ,  70UP 
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Format: 


Action: 


Example; 


( The  greater- 
thanoonv 
pahson 
operator  is 
used  to 
generate  a 
flag  for  IF.) 


2  FAREWELL 
5  FAREWELL 

See  Also:  IF  , 


flag 

\F 

( code  executed  if  flag  passed  to  IF  is  tnje ) 
ELSE 

( code  executed  if  flag  passed  to  IF  is  false ) 
THEN 

( code  which  is  always  executed ) 


ELSE  is  the  middle  word  in  the  IF. .  .ELSE. .  .THEN  program 
control  structure.  The  code  between  the  ELSE  and  THEN 
will  be  executed  if  a  false  flag  (zero)  is  passed  to  IF.  Once 
the  THEN  is  reached,  program  execution  will  continue  on  to 
the  code  following  the  THEN.  If  a  true  flag  (non-zero)  is 
(»ssed  to  IF,  the  code  between  the  IF  and  ELSE  will  be  executed. 
Upon  reaching  the  ELSE,  program  execution  will  be  redirected 
to  the  code  following  the  THEN. 


FAREWELL  expects  a  number  on  the  stack.  If  the  number  is 
greater  than  3,  a  'good  day'  message  will  be  issued.  If  the 
number  is  less  than  3,  a  “bad  day'  message  will  be  issued ; 


3  CONSTANT 
:  FAREWELL  ( 
Have  a  " 
►  GOOD  > 

IF 

good  " 
ELSE 
bad  " 
THEN 

"day!"  : 


GOOD  <cr>  ok  <0> 
n  -  ) 


( Code  executed  if  flag 
passed  to  IF  is  true. ) 


( Code  executed  if  flag 
passed  to  IF  is  false. ) 

( The  code  following 
the  THEN  is  always 
executed. ) 


<cr>Haveabadday!  ok  <0> 
<cr>  Have  a  good  day !  ok  <0> 

THEN 
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EMIT _ (ji^) _ _ 

Formal;  ascii-value  EMIT 

Action ;  Prints  the  character  whose  ASCII  value  is  on  the  stack. 

Example;  in  the  following  example  ASCII  is  used  to  put  an  ascii  value  on 

the  stack  and  EMIT  is  used  to  type  the  character  represented 
by  the  ascii  value  out  to  the  current  output  device: 

ASCII  A  EMIT  <cr>A  ok  <0> 

In  this  example,  the  ascii  value  for  an  "M*  is  put  on  the  stack  before  EMIT  is  executed  : 

HEX  <cr>  ok  <$0> 

4D  EMIT  <cr>  M  ok  <$0> 


EMIT  is  also  used  in  the  definitions  of  CR  and  SPACE  : 

HEX  ■<cr>ok  <$0> 

:  SPACE  20  EMIT  ;  <cr>ok  <$0> 

:  CR  OO  EMIT  ;  <cr>ok  <$0> 


See  also:  CR  ,  SPACE 
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Format: 

Action: 


Sm  also: 


EMPTY 

Deletes  every  dictionary  entry  which  is  not  a  kernel 
word.  EMPTY  performs  the  same  special  features  as 
FORGET  when  deleting  certain  types  of  words. 
EMPTY  is  usually  used  to  return  the  system  to  its 
start-up  state. 


WARNING: 

Breakpoints  set  using  the  MACH2  or  OS-9  debugger 
become  invalid  when  the  definition  in  which  the  breakpoint 
was  originally  set  is  removed  from  the  dictionary  with  the  use 
of  EMPTY  or  FORGET.  When  a  breakpoint  is  set.  the 
original  instruction  at  the  breakpoint  address  is  replaced 
with  a  special  opcode.  The  original  instruction  is  saved  away 
by  the  debugger.  The  next  time  the  breakpoint  address  is 
executed,  or  when  the  breakpoint  is  cleared,  the  old  instmction 
will  be  swapped  back  into  the  code.  If  the  original  definition 
was  removed  from  the  system  and  a  new  definition  loaded  in, 
the  debugger  will  try  to  replace  sections  of  code  in  the  new 
definition  with  old  instmctions  which  it  saved  away  previously. 

To  avoid  having  new  definitions  damaged,  dear  all  breakpoints 
immediately  before  or  after  the  use  of  EMPTY  or  FORGET. 

The  MACH2  debugger  will  print  an  error  message  if  the 
breakpoint  conflict  described  above  is  detected. 


FORGET 
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EMPTY 

Format: 

Action; 


See  Also: 
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BUFFERS _ 


EMPTY-BUFFERS 

Clears  the  update  bits  of  each  block  buffer  so  that  the  contents  of 
the  buffers  will  not  be  saved  to  storage. 


UPDATE  ,  FLUSH 
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Storage 

I/O] 


END 

Format; 

Action: 


Example: 


See  also: 
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-CODE _ 


CODE  name-of-routine  ...assembly  language...  END-CODE 

Used  to  end  CODE  definitions.  It  restores  the  base,  cuts  the 
first  vocabulary  from  the  search  order  (which  should  be  the 
ASSEMBLER)  and  then  leaves  compile-mode.  Note  that 
END-CODE  does  not  lay  in  an  RTS  ($4E75)  as does.  This 
must  be  explicitly  done  in  a  code  definitions. 


END-CODE  concludes  the  definition  of  MAX  by  snipping  the 
assembler  from  the  dictionary  search  and  then  leaving  the 
compiling  mode. 


CODE  MAX  (  nl  n2  <  n3  ) 


MOVE.L 
CMP.L 
BLE.S 
MOVE.L 
<3>1  RTS 
END-CODE 


(A5).D0 

@1 

D0.(A5) 

(  Include  the  RTS) 

(  Leave  compile  rrxjde ) 


CODE  ,  ;CODE  ,  MACH 
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Format: 


Action: 


ENOCASE  is  used  in  the  following  format: 

CASE 

n  OF  ( code  executed  if  n  is  matched )  ENDOF 
n1  OF  ( code  executed  if  n1  is  matched )  ENOOF 
n2  OF  ( code  executed  if  n2  is  matched )  ENDOF 


nn  OF  ( code  executed  if  nn  is  matched )  ENOOF 
( code  executed  if  no  match  was  made  atx)ve ) 
ENOCASE 


ENOCASE  is  the  terminating  word  in  the  CASE...OF... 
ENDOF.. .ENOCASE  program  control  structure.  If  a  match 
is  made  within  the  CASE  statement,  program  execution  is 
routed  to  the  code  which  immediately  follows  the  ENOCASE. 


Example: 


:  TEST  {  n  -  )  CASE 

1  OF  ONE"  ENDOF 

2  OF  TWO"  ENDOF 

3  OF  ."  THREE"  ENOOF 
"  No  match." 

ENOCASE 

;  <cr>  ok  <0> 

1  TEST  <cr>  ONE  ok  <0> 

4  TEST  <cr>  No  match,  ok  <0> 


See  also:  CASE  ,  OF  ,  ENOOF 


Program 
C  ontrol 
St  ructi  re 


ENDOF 
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Fonnat: 


Action: 


Sm  also: 


ENDOF  is  used  in  the  following  fonnat: 

CASE 

n  OF  ( code  executed  if  n  is  matched )  ENDOF 
nl  OF  ( code  executed  if  nl  is  matched )  ENDOF 
n2  OF  ( code  executed  if  n2  is  matched )  ENDOF 


rm  OF  ( code  executed  if  nn  is  matched )  ENDOF 
( code  executed  if  no  match  was  made  above ) 

ENDCASE 

OF  is  the  ending  word  in  the  OF...ENDOF  structure  used 
within  a  CASE  statement.  If  the  number  preceding  an 
ENDOPs  corresponding  OF  is  matched,  the  code  between 
the  OF  and  ENDOF  will  be  executed. 


CASE,  OF,  ENDCASE 
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Format: 

Action: 


parameter-field-address  EXECUTE 

EXECUTE  executes  the  word  whose  parameter  field 
address  is  on  the  stack.  It  does  this  by  moving  the 
parameter  field  address  to  the  subroutine  stack  and 
executing  an  RTS.  This  causes  the  word  to  be  executed. 
EXECUTE  has  the  same  effect  as  just  executing  the  word 
itself  by  typing  its  name. 

Example:  The  word '  will  put  the  parameter  field  address  of  the 

word  which  immediately  follows  it  on  the  stack.  The 
parameter  field  address  is  the  address  where  the 
executable  code  for  a  word  begins.  EXECUTE  wilt 
take  the  PFA  of  a  word  and  execute  it  just  as  if  the 
name  of  the  word  had  been  typed  : 

ONLY  FORTH  <cr>ok  <0> 

'  ORDER  EXECUTE  <cr> 

Search  Order  :  FORTH 
Definitions  :  FORTH 
ok  <0> 

The  word  ORDER  was  ticked*  to  get  its 
pfa  and  then  executed  by  EXECUTE. 


See  also:  ,  f] 
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Format:  EXIT 

Action:  Prematurely  exits  the  definition  it  is  in  by  removing  the 

address  on  top  of  the  subroutine  stack  and  jumping  to  the 
address  which  was  secortd  on  the  subroutine  stack.  This  is 
equivalent  to  inserting  a in  the  middle  of  the  definition. 

If  an  EXIT  is  to  be  used  within  a  DO  loop,  the  limit  and 
index  should  be  removed  from  the  loop  stack  before  the 
EXIT  is  executed  so  that  the  loop  stack  is  left  in  the  same 
state  it  was  in  before  the  DO  kx^  started  execution. 


Example:  The  EXIT  in  DANGLING  acts  as  if  it  were  the;  and  causes 

execution  of  the  word  to  terminate  : 

:  DANGLING 

This  sentence  will  not  be**  EXIT  .**  finished."  ;  <cr>  ok  <0> 
DANGLING  <cr>  This  sentence  will  not  be  ok  <0> 


The  following  example  shows  how  EXIT  may  be  used  to  force  an  exit  from  a 
PEGIN...AGAIN  loop : 

BACKDOOR  BEGIN  Hello"  7TERMINAL  IF  EXIT  THEN  AGAIN  ;  <er>ok  <0> 
BACKDOOR  <er>  Hello 
Hello 
Hello 
Hello 

Hello  <cr>  ok  <0> 


also: 


LEAVE 
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Format: 

Action: 


Exampla: 


VARIABLE  TEMP 
:  CAPTURE 

TEMP  U 


«19  EXPECT 


SPAN  <9  TEMP  Cl 


dest-addr  number-of-chars  EXPECT 

Waits  for  n  characters  to  be  entered  from  the  keyboard, 
transferring  each  one  to  memory  starting  at  the  specified 
address.  A  carriage  return  will  cause  EXPECT  to  terminate 
before  n  characters  have  been  received.  Othenwise, 
EXPECT  will  keep  waitirtg  until  ail  n  characters  have  been 
received.  The  system  variabla  SPAN  contains  the  number 
of  characters  actually  received  during  the  most  recent 
execution  of  EXPECT. 

The  word  CAPTURE  will  take  characters  received  by  an 
execution  of  EXPECT  and  create  a  counted  string.  A 
counted  string  is  a  string  which  holds  its  length  in  the 
first  byte  (the  length  byte).  The  characters  of  the  string 
immediately  follow  the  length  byte.  Counted  strings 
are  a  convenient  format  for  operators  such  as  COUNT 
and  TYPE: 

20  VALLOT  «cr>  ok  <0> 


(  Putting  an  address  on  tha  stack  for  EXPECT. 
The  first  byta  in  tha  TEMP  storage  area  is 
skipped  over  because  this  is  where  the  length 
byte  will  be  inserted.) 

( EXPECT  win  wait  for  19  characters  or  a  carriage 
return,  whichever  occurs  first.) 

( Immediately  after  EXPECT  is  executed,  SPAN 
will  contain  tha  number  of  characters  received 
by  EXPECT.  This  number  wil  be  stored  In  the 
first  byte  of  the  TEMP  storage  area  to  form  a 
length  byta  for  the  string.) 

(  This  line  will  print  out  tha  string  stored  in  TEMP.) 


TEMP  COUNT  TYPE  ( This  line  will  print  out  tha 

;  <cr>  ok  <0> 

CAPTURE  <cr>  Hello  there.<cr>  Hello  there,  ok  <0> 


See  also:  SPAN  ,  -TRAILING  ,  COUNT  .  TYPE  ,  NUMBER? 


aracter 
I/O  I 


EILL 

Format: 

Action: 

E«ampla: 


S««  also: 


!  •  «$%&  ■()*♦.-•/  0-9  ;:<  -  >  ?  ®A-z  [\l*_  a-zfi]' 


(an  .{?.-• 


) 


address  number-of-bytes-to-fW  fill-character  FILL 

Fills  n  bytes  of  memory  starting  at  the  specified  address 
with  the  specified  byte  value. 


In  the  following  example  a  10  byte  scratch  area  is  created 
in  memory.  Then,  the  first  7  bytes  of  the  scratch  area  are 
filled  with  the  ascii  value  for  a  *C*.  The  effect  of  the  FILL 
operation  is  verified  by  typing  out  the  contents  of  the 
SCRATCH  location: 


CREATE  SCRATCH  10  ALLOT  <cr>  ok  <0> 


SCRATCH  7  ASCII  C  FILL  <cr»>  ok  <0> 
SCRATCH  10  TYPE  <er>.  CCCCCCCTU  Ok  <0> 


TYPE  ,  ASCII 
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FIND  (a  -  a  n) _ 


address-of-name-string  FIND 

Searches  the  dictionary,  using  the  cun-ent  dictionary  search 
order,  for  the  name  spedfed  in  the  string  whose  address  is 
on  the  stack.  The  first  byte  in  the  name  string  is  the  length 
byte.  If  the  search  is  successful,  FIND  returns  the  link 
field  address  of  the  word  and  a  tme  (non-zero)  flag.  The  flag 
is  at  if  the  word  found  is  IMMEDIATE  arxJ  a  -1  if  the  word  is 
not  IMMEDIATE.  If  the  search  is  unsuccessful.  FIND  leaves 
the  original  address  of  the  name  string  and  a  false  (0)  flag. 

Examplg;  The  following  stack  notations  show  the  three  possible 

FIND  results : 

(  address  -  address  0  )  NOT  FOUND 
(  address  -  LFA  -1  )  FOLMD.  NOT  IMMEDIATE 

(  address  -  LFA  1  )  FOUND.  IMMEDIATE 


Format: 

Action; 


EXIST?  will  take  the  next  word  from  the  input  stream  and  will  use  FIND  to  determine 
if  the  word  exists  in  the  dictionary : 


:  EXIST? 

32  WORD 

FIND 

IF 

Yee" 

ELSE 

No" 

THEN 

DROP 


( Gat  tha  naxt  vwrd  from  tha  input  straam.) 

( Try  to  FIND  it. ) 

(  H  FIND  raturna  a  1  or  -1  on  top  of  tha  stack 
tha  word  doas  axist ) 

( If  FIND  ratums  a  0  on  top  of  tha  stack  tha 
word  does  not  exist. ) 

(  DROP  tha  address  returned  by  FIND. ) 


NOTE:  MACH  2  is  a  subroutine-threaded  implementation.  The  conventional  CFA 
(code  field  address)  does  not  exist.  The  FORTH-83  standard  requires  FIND  to 
return  a  CFA.  The  MACH  2  FIND  will  return  the  LFA  instead. 


See  also:  '  ,  (1  ,  IMMEDIATE  ,  7INCLUDE" 
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Format: 

Action: 


Se«  Also: 


FLUSH 

Frees  up  ail  the  block  buffers.  Writes  all  block  buffers  which 
are  marked  as  updated  to  disk  and  then  marks  all  the  buffers 
as  unmodified  and  available.  SAVE-BUFFERS  is  used  when 
the  block  buffers  need  to  be  saved  to  disk. 

FLUSH  is  called  when  BYE  is  executed. 


UPDATE  ,  SAVE-BUFFERS  ,  EMPTY-BUFFERS 
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FORGET 
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Format: 

Action: 


FORGET  <name> 

Searches  for  <name>  using  the  current  dictionary  search.  If 
<name>  is  found.  <name>  and  alt  words  added  to  the  dictionary 
after  name,  regardless  of  vocabulary,  are  deleted  from  the 
dictionary.  If  <name>  is  not  found  an  error  message  is  issued. 

FORGET  performs  the  following  actions; 


1 .  Reclaims  the  code  space  for  all  forgotten  definitions. 

2.  Reclaims  the  names  space  corresponding  to  all 
forgotten  definitions. 

3 .  Reclaims  the  variable  space  corresponding  to  all 
forgotten  variables. 

4.  Rerrwves  any  forgotten  vocabularies  from  the 

list  of  known  vocabularies  (all  words  in  the  vocabulary 
are  also  forgotten. 


See  also: 


EMPTY 
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Format: 

Action: 


Example: 


Sae  also: 


ONLY  FORTH  or  ALSO  FORTH 

FORTH  is  the  vocatxjiary  which  contains  all  words  which 
make  up  the  FORTH  kernel. 

When  used  with  ONLY,  FORTH  will  become  the  only 
vocabulary  included  in  the  current  search  order . 

When  used  with  ALSO,  the  FORTH  vocabulary  will  be 
appended  to  the  current  search  order.  This  will  cause  FORTH 
to  become  the  transient  vocabulary  (the  vocabulary  which  is 
searched  first).  Any  other  vocabularies  in  the  search  order  will 
be  searched  after  the  transient  vocabulary.  WORDS  will  only 
display  the  words  in  the  transient  vocabulary  and  the  words 
us^  to  specify  the  search  order  when  executed. 


To  specify  a  search  order  in  which  the  ASSEMBLER  vocabulary 
will  be  searched  first  and  the  FORTH  vocabulary  second  : 

ONLY  FORTH  «cr>ok  <0> 

ALSO  ASSEMBLER  <cr>ok  <0> 


The  word  ORDER  will  display  the  current  search  order  and 
the  vocabulary  to  which  new  definitions  are  being  appended  : 

ORDER  <cr> 

Search  Order  :  ASSEMBLER  FORTH 
Definitions  :  FORTH 
ok  <0> 


To  make  the  FORTH  vocabulary  the  only  vocabulary  which 
is  searched : 

ONLY  FORTH  <cr>  ok  <0> 


ONLY  ,  ALSO  ,  ORDER  ,  DEFINITIONS 
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•  FORTH-83 _ 

Format:  FORTH-83 

Action:  Verifies  that  the  FORTH-83  standard  is  supported. 

Example:  FORTH-83  <cr>  32-bit  Forth  83  ok  <0> 


‘  ■  #$%&  '  0  •  +  0-9  ;;<>>  ?  @A-Z  (\1'‘  'a-z{l}- 

HERE  (_^) _ 

Format;  HERE 

Action:  Pushes  the  address  of  the  next  available  dictionary  location 

on  the  stack. 

ExantBlft'i  The  MERE  pointer  is  incremented  by  all  words  which  add  items 

to  the  dictionary  ; 

HEX  <cr>  ok  <$0> 

HERE  .  <cr>  17806  Ok  <$0> 

:  DUMMY  ;  <cr>ok  <$0> 

HERE  .  <cr>  17808  ok  <$0> 


10  ALLOT  <cr>  ok  <$0> 
HERE  .  <cr>  17818  ok  <$0> 

300  W,  <cr>ok  <$0> 

HERE  .  <cr>  17820  ok  <$0> 


(  Bacause  the  dictionary  headers  are  ) 

( separated  from  their  corresponding  run-time ) 

( code,  the  HERE  pointer  was  only  incremented ) 

(  by  2  bytes  by  the  definition  DUMMY.  These  two  ) 
( bytes  are  required  to  compile  the ;  ) 


( ALLOT  is  used  to  allocate  space  in  the  ) 
( dictionary. ) 


( All  of  the  'comma*  words  (C, ,  W.  and , )  lay ) 
( a  value  into  the  dictionary  and  advance ) 

( the  HERE  poimer  accordingly. ) 


Se«  also:  ALLOT  ,  ,  ,  C,  ,  W, 
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Format:  HEX 

Action :  Sets  the  current  task's  number  base  -  which  affects 

all  number  Input/output  operations  -  to  hexadecimal. 
A  $  sign  is  included  in  the  stack  depth  indicator  when 
the  current  base  is  hexadecimal. 

Example: 

DECIMAL  <cr>ok  <0> 

10  <cr>ok  <1> 

HEX  <cr>ok  <$1> 

.  <cr>A  ok  <$0> 


HEX  <cr>  ok  <$0> 

:  NUMBERS  CR  10  0  DO  I  .  LOOP  ;  <cr>ok  <$0> 
NUMBERS  <cr> 

01234S6789ABCDEFok  <$0> 

The  definition  of  HEX  is  - 
DECIMAL  <cr>  ok  <0> 

:  HEX  16  BASE  !  ;  <cr>  ok  <0> 


See  also:  DECIMAL  ,  BASE  ,  BINARY 
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HOLD  (c  ) _ 

Format;  .  c  HOLD  . . . 

Action:  Inserts  the  character  whose  ASCII  value  is  on  top  of  the  stack 

into  the  next  available  position  in  the  formatted  ASCII  string 
being  constnjcted.  HOLD  must  be  used  within  <#  and  #>. 

Example:  In  the  example  used  in  the  #  glossary  entry.  HOLD  was 

used  to  insert  a  decimal  point  and  a  dollar  sign  into  the 
formatted  strings  produced  by  SString  : 

;  $Strlng  (  n  <  )  <«  *  *  ASCII  .  HOLD  «S  ASai  $  HOLD  §>  TYPE  ;  <cr>  ok  <0> 

74638  SString  <cr>  $746.38  ok  <0> 

DATE  uses  HOLD  to  insert  the  backslash  character  into  a  formatted  string; 

:  DATE  (  n  •  )  <#  «  »  ASCII  /  HOLD  #  «  ASCII  /  HOLD  «  «  «>  TYPE  ;  <cr>  ok  <0> 

100961  DATE  <cr>  10/09/61  ok  <0> 


A  formatted  string  is  always  built  from  right  to  left  (from  higher  to  lower  memory  locat'ons 
in  the  PAD.  Each  new  digit  in  a  formatted  string  is  placed  in  the  next  lower  byte  location 
in  the  PAD: 


1<-PAD 

PAD +  84  bytes— >j 

□ 

m 

a 

B 

This  diagram  shows  the  formatted  string  under  construction.  The  backslash 
has  just  been  inserted  by  HOLD  into  the  date  string. 


See  a;>r:  <«  ,  «  ,  «S  ,  SIGN  ,  «> 
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Format:  I 

Action:  When  inside  ot  a  DO.  ■  ■  LOOP  or  DO. . .  -t-LOOP,  I  puts 

the  current  loop  index  value  on  the  parameter  stack. 

A  more  general  description  is  that  I  is  moving  a  copy 
of  the  top  of  the  loop  stack  to  the  parameter  stack. 
However,  the  word  R®  ( which  also  moves  a  copy  of 
the  top  of  the  loop  stack  to  the  parameter  stack )  is 
usually  used  to  perform  this  function  when  outside 
of  DO  loops. 


Example: 


:  NUMBERS  5  0  DO  I  .  LOOP  ; 

[TJ  [ll  '^[1 

NUMBERS  <cr>  0  1  2  3  4  ok 


fn  Parameter  and  loop  stack 
right  before  DO: 


fil  Parameter  and  loop  stack 
right  after  DO: 


[3~j  Parameter  and  loop  stack 
^  after  4  times  through  loop: 

Param  Loop 


0 


Param  Loop 

Parameter  and  loop  stack 
after  loop  completed: 


Param  Loop 


See  also:  R(9  i  >R  ,  R>  ,  r 
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Format: 

Action; 


Examptg; 


Sm  Also: 


■(  ■  n) _ 

”  i-tick  ■ 


r 

In  the  general  case,  r  puts  a  copy  of  the  second  item  on 
the  loop  stack  on  the  parameter  stack.  When  used 
inside  of  a  loop,  I'  places  the  limit  value  (which  will  be  the 
second  item  on  the  stack  when  a  DO  loop  is  executing) 
for  the  loop  on  the  parameter  stack. 


This  example  will  generate  and  print  one  row  of  a 
multiplication  table : 


:  'TABLE 
CR 

11  1  DO 
I  r  •  CR 

LOOP  ;  <cr>  ok  <0> 


(The  index  of  the  loop 
is  multiplied  by  the 
limit  of  the  loop  and 
the  result  printed  on 
the  screen  each  time 
through  the  loop. ) 


'TABLE  <cr>  11  22  33  44  SSfsslTTaaSQ  110  ok  <0> 


The  loop  stack  at  this  point 
would  be; 


1 


Loop  Stack 


( I  gets  this  value. ) 

( r  gets  this  value. ) 


00  ,  LOOP  ,  ♦LOOP  ,1.1* 
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Format:  IF  may  be  used  in  two  different  formats: 

ftag 

IF 

( code  executed  if  flag  passed  to  IF  is  true  (non-zero) ) 
THEN 

( code  which  is  always  executed ) 

or  flag 
IF 

( code  executed  if  flag  passed  to  IF  is  tme  (non-zero) ) 
ELSE 

( code  executed  if  flag  passed  to  IF  is  false  (zero) ) 
TH0J 

( code  which  is  always  executed ) 


Action:  IF  is  the  first  part  of  the  IF...THEN  or  the  IF...ELSE...THEN 

program  control  structures.  IF  expects  on  the  stack  a 
flag  which  indicates  whether  or  not  the  code  immediately 
following  the  IF  should  be  executed. 


Example:  2  CONSTANT  VERY  <cr>ok  <0> 

:  FAREWELL  (n  •  ) 

Have  a  " 

VERY  > 

IF 

very  " 

THEN 

good  day  r  ;  <cr>ok  <0> 


1  FAREWELL  <cr>  Have  a  good  day !  ok  <0> 

3  FAREWELL  <cr>  Have  a  very  good  day !  ok  <0> 
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See  Also:  ELSE  ,  THEN 
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1L_( 

Format: 

Action: 


Example: 


IL--.  ■) _ 

■  instruction-list" 


start-address  #instructions-to-disassembie  IL 

Symbolically  disassembles  n  instructions  starting 
at  address  a. 


IL  can  be  used  to  disassemble  user-defined  words 
and  MACH2  kernel  words.  Note  in  the  disassembly  of 
the  user-defined  word  Test'  that  user  references  to 
MACH2  kernel  words  are  compiled  as  ‘JSR  -xx(A6)‘ 
instructions.  The  '-xx'  is  the  offset  from  the  address 
in  the  A6  register  to  the  jump  table  entry  for  the  kernel 
word  being  referenced.  A  user  reference  to  a  kernel 
word  will  always  be  compiled  as  a  'JSR'  through  the  jurrp 
table.  Note  also  that  or  ’  *  ‘  string  data  are  displayed 
properly: 


:  Test 

{  -n) 

3  4500  • 

*  Test 

8  IL  <er> 

055230: 

MOVEQ .  L 

*$3,D0 

055232: 

MOVE.L 

00, -(AS) 

055234: 

MOVE.L 

»S1194,-(A5) 

05523A: 

JSR 

S-7C5E(A6) 

05S23E: 

BSR.S 

♦  SA 

oc.a 

6 

DC. 8 

' string' 

055248: 

MOVE .  L 

(A7)*.-(A5) 

0S524A: 

JSR 

S-7FEE(A6) 

0SS24E: 

RTS 

ok  <0> 

stflng"  ;  <cr>  ok<0> 


;  $SS248 
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IMMEDIATE 


Format:  :  forth-definition .  ;  IMMEDIATE 

Action:  Marks  the  most  recently  defined  dictionary  entry  as  a 

word  which  will  be  executed  when  encountered  during 
compilation  instead  of  being  compiled  during 
compilation.  Because  immediate  words  are  executed 
during  compilation,  they  never  generate  any  compiled 
code. 


Example: 

:  SPEAK-NOW  Compiling.  .**  ;  IMMEDIATE  <a»r> 


:  TEST-STATE 
SPEAK-NOW 


Running.  ;  <cr>  Compiling. .  ok  <0> 

/ 

( SPEAK-NOW  is  an  immediate  word 
which  will  be  executed  whenever 
it  is  encountered.  In  this  case, 
SPEAK-NOW  was  encountered  during 
the  compilation  of  TEST-STATE  and  am. 
When  SPEAK-NOW  is  njn  it  displays 
this  message  on  the  screeen. ) 


TEST-STATE  <cr>  Running. .  ok  <0> 

\ 

(  When  TEST-STATE  is  tun.  only  the  words  which 
generated  code  during  compilation  will  be  executed. 

The  compiled  code  which  comprises  TEST-STATE  has 
no  memory  of  SPEAK-NOW  because  SPEAK-NOW  was 
executed  during  compilation  and  thus  did  not  generate 
any  compiled  code.  This  a  why  SPEAK-NOWs  message 
was  not  displayed  when  TEST-STATE  was  executed. ) 


See  also:  [COMPILE]  ,  ]  ,  [  ,  STATE  .  SMUDGE 
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INCLUDE” 


’  include-quote’ 


Format:  INCLUDE"  ccc' 

Action:  INCLUDE*  will  load  the  file  named  ccc.  INCLUDE’ may  be 

nested-i.e.  the  contents  of  a  file  being  loaded  may  also 
contain  an  INCLUDE".  INCLUDE*  performs  the  following 
actions: 

1 .  Looks  to  see  if  there  is  already  a  file  open. 

2.  If  a  file  is  open,  the  file  ID  for  that  file  and  the  position  of 
the  current  >IN  pointer  are  saved  on  the  loop  stack. 

3.  INCLUDE*  then  tries  to  open  the  specified  file.  If  it  cannot 
open  the  file  a  "Disk  Error*  message  will  result. 

4.  If  the*  ccc*  file  is  found,  it  is  opened  and  the  loading 
process  is  started. 


Eitampla:  The  following  example  will  open  and  load  the  file  SIEVE.FTH  : 

INCLUDE*  SIEVE.FTH*  <cr>  ok  <0> 


After  any  loading  process  the  word  QUIT  is  executed.  This  means  the  parameter  stack 
will  be  cleared  when  the  loading  process  completes.  Any  values  left  on  the  stack  by 
a  file  being  loaded  will  be  removed.  If  a  file  being  loaded  must  pass  values  to  another 
part  of  the  program  it  should  do  so  by  explicitly  executing  a  word  which  passes 
the  desired  values. 


See  also:  LOAD  ,  7INCLUDE* 
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Format: 

Action: 


In  the  general  case,  J  puts  a  copy  of  the  third  item  on 
the  loop  stack  on  the  parameter  stack.  When  used 
inside  of  a  nested  loop,  J  places  the  index  value  for  the 
next  loop  outside  of  the  current  loop  (which  will  be  the 
third  item  on  the  loop  stack  while  the  DO  loops  are 
executing)  on  the  parameter  static. 


Example: 


This  example  creates  a  few  rows  of  a  multiplication  table: 


‘TABLE 

CR 

6  1  DO 
11  1 


Outer  Loop 


^  111  DO 

'"^“-oop 

CR  LOOP  ;  <cr>  ok  <0> 


( Multiplying  the 
index  of  the  inner 
/  loop{l)bythe 
Jf  index  of  the  outer 
loop(J).) 


‘TABLE  <cr> 

123456789  10 

2  4  6  8  10  12  14  16  18  20 

3  6  9  12  15  18  21  24  27  30 
^28  32  36  40 

35  40  45  50  Ok  <0> 


The  return  stack  at  this  point 
would  be: 


4  8  12  16  20[^2 

5  10  15  20  2^ 

ini  _ I 


( Index  for  inner  loop ) 

( Limit  for  inner  loop ) 

( Index  for  outer  loop ) 
( Limit  for  outer  loop ) 


6 

◄1 

1  1 

4 

6 

( "r  gets  this  value. ) 


[  'J*  gets  this  value. ) 


Loop  Stack 

See  Also:  DO  ,  LOOP  ,  -^LOOP  ,1,1' 
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KEY 

Format: 

Action: 

Eximple; 


Se«  also: 


) 


KEY 

Waits  until  a  key  is  pressed  and  then  puts  the  ASCII  value 
of  the  character  on  the  stack. 


KEY  <CT>_ 

After  KEY  is  typed  in  and  a  carriage  return  pressed,  the 
cursor  still  remains  on  the  same  line  because  KEY  is  mnning 
at  this  point  and  waiting  for  a  key  to  be  pressed. 

If  an  'M*  is  pressed  KEY  will  put  the  ASCII  value  for  an  “M*  on 
the  stack  and  complete  running. 

KEY  <cr>  ok  <0>  (an 'M*  was  pressed) 

OUP  <cr>ok  <2> 

.  <cr>  77  ok  <l> 

EMIT  <cr>  M  ok  <0> 


EXPECT  .  EMIT  .  7TERMINAL 
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LAST 

Format: 

Action: 
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_(.^) _ 

LAST 

Pushes  the  address  of  the  variable  which  contains  the  link  field 
address  of  the  most  recent  dictionary  entry  on  the  stack. 
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Format;  LEAVE 

Action;  Exits  from  within  a  DO  loop.  Transfers  execution  to  the  word 

just  beyond  the  next  LCX3P  or  -t-LOOP.  The  loop  is  terminated 
and  the  loop  index  and  limit  are  discarded  from  the  loop  stack. 

LEAVE  may  appear  within  other  control  stnjctures  which  are 
nested  within  the  00  loop  structure.  More  than  one  LEAVE  may 
appear  within  a  OO  loop. 


Example:  TERMINATE  uses  LEAVE  to  terminate  the  DO  loop  after 

the  index  value  has  reached  7. 


( Using  the  equal, 
comparison 
operator  to  see 
if  the  loop  index 
has  reached  7. ) 


TERMINATE 
10  0  DO 

I  .CR 

17  3 

IF  ◄ - 

LEAVE 

THEN 

LOOP  ;  <cr>  ok  <0> 


( The  IF. .  .THEN 
program  control 
structure  is 
nested  within 
the  DO. .  .LOOP 
structure. ) 


TERMINATE 

1 

2 

3 

4 

5 

6 

7  ok  <0> 


<cr> 


See  Also:  DO  ,  LOOP  ,  -t-LOOP  ,  EXIT  .  IF  .  THEN 
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LINK>BODY  -( al  -r-^) _ 

■  link-to-body  ■ 

Format;  link-fieid-address  LINK>BOOY 

Action:  Given  a  link  field  address.  LINK>BODY  will  return 

the  corresponding  parameter  field  address. 


ion 


Sm  also:  BODY- '  K 
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LIST _ (ji^ 


) 


Format:  block-number  LIST 

Action:  Displays  the  contents  of  block  n  ot  the  current  file 

on  the  screen. 


Note  About  Current  Files: 

In  MACH2  there  is  a  system  variable  called  FILEID.  Any  FORTH  Storage  I/O  words  which 
interact  with  open  files  will  look  in  this  location  prior  to  their  actions  to  determine  which 
file  they  should  be  operating  on.  If  a  zero  is  stored  in  FILEID  it  means  that  there  is  currently 
no  fife  to  operate  upon.  Words  such  as  LIST,  which  determines  which  file  it  should 
list  from  by  looking  in  FILEID  will  return  a  'No  file  specified...*  error  message  H  used  when 
a  zero  is  found  in  FILEID. 

If  a  non-zero  value  is  stored  in  FILEID  it  is  assumed  to  be  a  file  reference  value  virhich 
uniquely  identifies  which  file  should  be  operated  on.  The  file  whose  file  reference  number 
is  stored  in  FILEID  is  called  the  current  file.  The  MACH  2  tile  interaction  words  (BLOCK, 
BUFFER,  LIST,  LOAD)  will  perform  their  actions  on  the  current  file. 

After  using  SOPEN  to  open  a  tile,  you  can  make  the  file  the  current  file  by  storing  the  file 
reference  number  returned  into  FILEID: 


DECIMAL  <cr>ok  <0> 

4  FllelO  Wl  <er>  ok  <0> 


( Storing  a  16-bit  file  reference  number 
into  FilelD.  Now  the  tile  corresponding 
to  this  file  reference  number  will  be  the 
current  file. ) 


Now  LIST  could  be  used  to  list  the  contents  of  a  block  in  this  current  file. 


See  also:  LOAD 
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Format:  n  UTERAL 

Action:  During  compilation,  LITERAL  takes  the  number  on  top  of 

the  stack  and  compiles  it  ( in  FORTH  compiled  numbers 
are  referred  to  as  literals ). 


Example:  The  following  example  shows  a  common  use  of  LITERAL  : 


:  SECS/YEAR  [  365  24  *  60  *  60  *  ]  LITERAL  ;  <cr>ok  <0> 

SECS/YEAR  is  a  value  to  be  used  often  in  a  program.  Instead  of  having  to  calculate 
the  number  of  seconds  in  a  year  each  time  the  program  needs  the  value,  SECS/YEAR 
calculates  the  value  only  once-during  compile  time-and  lays  the  value  in  the  definition. 
This  method  has  two  benefits.  One  is  that  it  reduces  execution  time.  Every  time 
SECS/YEAR  is  referenced  it  pushes  the  pre-compiled  value  on  the  stack,  it  does  not 
have  to  perform  any  run-time  calculations.  The  second  benefit  is  increased  program 
readability.  The  above  definition  of  SECS/YEAR  is  much  more  readable  than  the 
following  definition  which  simply  includes  the  precalculated  value. 

:  SECS/YEAR  31536000  ;  <cr>  ok  <0> 


See  also:  ]  ,  [ 
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LOAD  (n.) 


Format;  block-number  LOAD 

Action;  Uses  BLOCK  to  copy  the  specified  block  from  storage 

to  a  block  buffer  in  memory  if  it  is  not  already  in  memory. 
LOAD  then  redirects  the  interpreter  so  that  it  interprets 
words  in  the  block  buffer  rather  than  words  in  the  input 
message  buffer.  When  all  of  the  words  in  the  block 
buffer  have  been  interpreted  ( LOADed),  the  interpreter 
is  switched  back  to  interpreting  words  from  the  input 
message  buffer.  Operates  on  the  cunently  open  tile. 

Since  source  files  in  MACH  2  are  arranged  as  text  files 
rather  than  in  block-size  saeens,  the  word  LOAD  is  not 
usually  used  to  load  files.  The  word  INCLUDE*  would  be 
used  to  load  a  file  from  within  a  program. 


See  also:  LIST 
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Format: 


limit  irxlex 
DO 

( code  to  be  executed  each  time  through  loop ) 
LOOP 


Action;  LOOP  is  the  smart  half  of  the  DO. .  LOOP  program  control 

structure.  LOOP  expects  to  find  a  limit  and  an  index  on 
the  loop  stack.  The  number  of  times  the  loop  will  be 
executed  is  determined  by  the  limit  and  index  using 
the  formula:  limit  -  index of  loops.  Each  time  LOOP 
is  executed  it  increments  the  loop  index  by  one  and  compares 
the  new  index  value  to  the  limit  v^e.  It  the  index  is 
less  than  the  limit  the  loop  will  be  executed  again.  If 
the  index  is  greater  than  or  equal  to  the  limit.  LOOP  will 
terminate  the  loop  by  removing  the  limit  and  index 
from  the  loop  stack  and  allowing  program  execution  to 
continue  on  to  the  code  following  the  LOOP. 

Example:  :  NUMBERS  5  0  00  I  .  LOOP  ;  <cr>  ok  <0> 

NUMBERS  <cr>  0  1  2  3  4  ok  <0> 


The  effect  of  LOOP  • 

Loop  stack  before 
first  LOOP: 

Index 

Limit 

Lwb  Stash 


Loop  stack  after 
first  LOOP: 


Loop  stack  after 
last  LOOP; 


Loot}  Stack 


See  also:  00  ,  LOOP  ,  -r-LOOP  .  I  .1’ ,  J 
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J._EXI 

Format: 

Action: 


ExampJe: 


f  n1  •  n2  ) 


■  long-extend" 


16-bit-value  L_EXT 

Extends  the  word-length  (l6-bit)  value  in  the  lower  two  bytes 
of  the  number  on  top  of  the  stack  into  a  long-word  (32-bit) 
value  by  copying  bit  15,  the  sign  bit  for  a  word-length  value, 
to  bits  16-31  of  the  long-word  value. 


HEX  <cr>  ok  <$0> 

FF89  L_EXT  .  <cr>  -77  ok  <$0> 
89  L_EXT  .  <cr>89  ok  <$0> 
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Format; 

Action: 


MACH 

Used  to  toggle  the  MACH  bit  on  the  last  word  defined  ( its  use 
is  similar  to  IMMEDIATE  or  SMUDGE).  If  a  word  with  its  MACH 
bit  set  is  encountered  during  compilation  all  of  the  assembly 
language  instructions  which  comprise  the  word  will  be  laid 
into  the  definition  being  compiled.  Normally,  a  jump  to  the 
executable  code  for  a  word  (JSH)  would  be  compiled.  This 
can  be  used  to  increase  speed  arxf,  at  times,  save  space. 

Look  in  the  appendices  for  a  list  of  precautions  to  observe 
when  using  MACH. 


See  also:  IMMEDIATE  ,  SMUDGE 
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Format; 

Action; 


MACHMOOULE  <main-word>  <module  name> 

MACHMODULE  creates  user  trap  modules  to  be 
shared  by  MACH2  programs  and  applications. 
MACHMOOULE  Should  be  used  after  the  code  to  be 
placed  in  the  module  has  been  located  into  memory. 
<main  word>  is  the  word  which  will  be  lun  when  the  trap 
module  is  later  accessed.  <module  name>  is  the  name 
for  the  module. 


When  MACHMOOULE  is  executed  MACH2  takes  all 
code  in  the  user's  code  area  and  writes  it  out  to  a  new 
trap  iTiOduie  with  the  given  name.  After  MACHMOOULE 
has  completed,  MACH2  will  return  to  the  OS-9  shell. 

At  this  point  you  may  perform  a  directory  listing  to  see 
that  the  new  trap  module  does  exist. 


See  also:  ASSIGNMODULE  ,  TCALL 


Inbrfabe 


Format: 

Action: 


Sm  also: 


MAKEMOOULE  <main-word>  <module  name> 

MAKEMOOULE  creates  user  trap  modules  to  be 
shared  by  non-MACH2  programs  and  applications. 
MAKEMOOULE  Should  be  used  after  the  code  to  be 
placed  in  the  module  has  been  located  into  memory. 
<main  word>  is  the  word  which  will  be  run  when  the  trap 
module  is  later  accessed.  <module  name>  is  the  name 
for  the  module. 

When  MAKEMOOULE  is  executed  MACH2  takes  all 
code  in  the  user's  code  area  and  writes  it  out  to  a  new 
trap  module  with  the  given  name.  After  MAKEMOOULE 
has  completed,  MACH2  will  return  to  the  OS-9  shell. 

At  this  point  you  may  perform  a  directory  listing  to  see 
that  the  new  trap  module  does  exist. 


ASSIGNMOOULE  ,  TCALL 
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MATH 


Format:  ONLY  MATH  or  ALSO  MATH 

Action:  MATH  is  the  vocatxjiary  which  contains  all  of  the  floating 

point  math  words. 

When  used  with  ONLY,  MATH  will  become  the  only 
vocabulary  included  in  the  current  search  order . 

When  used  with  ALSO,  the  MATH  vocabulary  will  be 
appended  to  the  cun’ent  search  order.  This  will  cause  MATH 
to  become  the  transient  vocabulary  (the  vocabulary  which  is 
searched  first).  Any  other  vocabularies  in  the  search  order  will 
be  searched  after  the  transient  vocabulary.  WORDS  will  only 
display  the  words  in  the  transient  vocabulary  and  the  words 
used  to  specify  the  search  order  when  executed. 


Example:  To  specify  a  search  order  in  which  the  FORTH  vocabulary 

will  be  searched  first  and  the  MATH  vocabulary  second  : 

ONLY  MATH  <er>  ok  <0> 

ALSO  FORTH  <cr>ok  <0> 


The  word  ORDER  will  display  the  current  search  order  and 
the  vocabulary  to  which  new  definitions  are  being  appended  : 


ORDER 


<cr> 


Search  Order  :  FORTH  MATH 
Definitions  :  FORTH 


ok  <0> 


To  make  the  FORTH  vocabulary  the  only  vocabulary  which 
is  searched : 

ONLY  MATH  <cr>  ok  <0> 


See  also:  ONLY  ,  ALSO  ,  ORDER  ,  DEFINITIONS 
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MAX  (  n1  n2  •  n3  ) 


Format;  n1  n2  MAX 

Action;  Compares  the  two  numbers  on  top  of  the  stack  arxt 

leaves  the  greater. 


Example: 

5  10  MAX  <cr>  ok  <1>  5  -5  MAX  <cr>  ok  <0> 

.  <cr>10  ok  <0>  .  <cr>  5  ok  <0> 


For  Assembly  Larvpiiage  Programmers; 

CODE  MAX  (  n1  n2  •  n3 ) 
MOVE.L  (A5)-*..00 

CMP.L  (AS), DO 

BLE.S  (3)1 

MOVE.L  00, (AS) 

(3>1  RTS 
ENO'CODE 


Sea  also:  MIN 
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MOD 


f  n1  n2  ■  n3  ^ 


Format; 

Action; 


n1  n2  MOO 

Divides  nl/n2,  leaving  the  32-bit  remainder  from  the 
division  on  the  stack. 


SAamcle: 


25  7  MOO  <cr>  ok  <1> 
<cr>  4  ok  <0> 


See  also:  /MOO  ,  */MOO 
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NEGATE  (n-^i _ 

Format:  n  NEGATE 

Action:  Changes  the  sign  of  the  number  on  top  of  the  stack  ( 2's 

complement ).  The  negatioi  of  n  -  0  -  n. 


Example:  3  NEGATE  <cr>  ok  <3> 

<cr>  -3  ok  <0> 


For  Assembly  Larv  jaqe  Proofammers: 

CODE  NEGATE  (  n  •  -n  ) 
NEG.L  (AS) 

RTS 

END-CODE 

MACH 


See  also:  A8S  ,  DNEGATE 
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NP  -(^) _ 

Format;  NP 

Action:  Variable  which  holds  the  pointer  to  the  next 

available  spot  in  the  names  space. 


'  name-pointer  “ 


See  Also:  HERE  ,  VP 


G-150 


D\t 


Man 


tion^ 

lagem 


ry 

ent 


!  •  #$%4 ' 0  •  +  ,-./  0-9  :;<->?  @A-Z  (\p  ‘a-z{|) 

•  NUMBER?  _ 


Format:  address-ot-string-to-be-converted  NUMBER? 

Action;  Tries  to  convert  an  ASCII  string  to  a  binary  number  with 

regard  to  the  current  number  base.  NUMBER?  expects  on 
the  stack  the  address  of  the  ASCII  string  to  be  converted.  The 
first  byte  of  the  string,  normally  the  length  byte,  is  skipped 
over  by  NUMBER?  but  must  be  included.  The  last  byte  in  the 
strir>g  must  be  a  null  or  a  space.  If  the  conversion 
is  successful  and  either  valid  punctuation  (commas,  periods, 
back  slashes,  or  semi-colons)  or  no  punctuation  is  found  in 
the  string,  a  32-bit  value  will  be  put  on  the  stack.  If  the 
conversion  is  unsuccessful,  usually  due  to  invalid  punctuation 
or  characters  within  the  string,  an  error  message  is  issued. 

The  string  may  contain  a  preceding  mirtus  sign. 


ExaniDlO;  in  the  following  example,  EXPECT  is  used  to  put  a  number 

string  into  a  storage  area.  NUMBER?  takes  the  address  of 
this  storage  area  and  converts  it  contents  to  a  numeric  value; 


VARIABLE  NumStrlng  20  VALLOT  <cr>  ok  <0> 
NumStrIng  1-»  19  EXPECT  <cr>  l23,4S<cr>ok  <0> 


NumStrlng 
.  .  «cr>  -1 


NUMBER?  <er>  ok  <2> 
12345  ok  <0> 


Notice  that  the  first  byte  of  the  storage  area  was  not  used  since  NUMBER?  will  ignore 
it.  Also,  a  comma  was  included  in  the  string  entered  but  NUMBER?  did  not  complain 
since  a  comma  is  a  valid  punctatbn  mark. 


NOTE:  MACH  2  supports  32-bit  integers.  Punctuation  does  not  generate  64-bit 
double  length  numbers.  Ail  numbers  are  32-bit. 


Sm  also:  CONVERT  ,  BASE 
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OF 

Format: 


Action: 


Se«  also: 


f  n1  n2  - 


(03)  ). 


OF  is  used  in  the  tollowing  format: 

CASE 

n  OF  ( code  executed  if  n  is  matched )  ENDOF 
n1  OF  ( code  executed  tf  nl  is  matched )  ENOOF 
n2  OF  ( code  executed  if  n2  is  matched )  ENDOF 


rm  OF  ( code  executed  if  nn  is  matched )  ENDOF 
( code  executed  if  no  match  was  made  above ) 
ENDCASE 

OF  marks  the  beginning  the  OF...ENDOF  stnjcture 
used  within  a  CASE  statement. 


CASE  ,  ENOOF  ,  ENDCASE 
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Format; 

Action; 


ONLY  vocabulary-name 

Makes  the  vocabulary  specified  by  name  the  only  vocabulary 
searched  in  all  subsequent  dictionary  searches.  Only  the 
words  in  the  specified  vocabulary  and  the  words  used  to 
specify  and  change  the  search  order  will  be  found  after  the 
use  of  ONLY.  ALSO  may  be  used  to  append  other  vocabularies 
to  the  search  order. 


Example: 


ONLY  OS-9  <cr>  ok  <0> 
WORDS  <cr> 

SCREATE  V 

SDELETE  X 

SCLOSE  X 

SOPEN  X 

SWRfTE  \ 

FILEID 


WORDS 

ORDER 

ALSO 

ONLY 

SEAL 

DEFINITIONS 

MATH  / 

OS-9  ^ 

ASSEMBLER 
FORTH 
ok  <Q> 

3  OUP  <cr>  OUP  ? 


After  ONLY  OS-9  these  are  the  only  words 
which  will  be  able  to  be  found  in  any  subsequent 
dictionary  search. 


( The  FORTH  vocabulary  is  not  being  searched  so 
the  system  does  not  know  about  DUP.) 


ALSO  FORTH  <cr>  ok  <0>  (  Now  the  FORTH  vocabulary  will  also  be  searched.) 


3  DUP  <cr>  ok  <2> 


( And  now  the  system  is  able  to  find  DUP  in  the 
dictionary.) 


See  also:  ALSO  ,  ORDER 


Dictionary 
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OR  fn1  n2  -  n3) _  W 

Format:  n1  n2  OR 

Action:  Performs  the  bit-by-bit  logical  OR  of  nl  with  n2.  Leaves 

the  result  on  top  of  the  stack. 


Example:  The  truth  table  for  OR  is: 


£l- 

B 

A  OR  B 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

1 

BINARY  <cr>  ok<%0> 
10101010  <cr>ok<%1> 

00001111  OR  <cr>ok  <%1> 
.  <cr>  10101111  ok  <%0> 
DECIMAL  <cr>  ok  <0> 

For  Assembly  Language  Programmers: 

CODE  OR  (  nl  n2  •  n3  ) 

MOVE.L  (A5)-»-,00 
OR.L  DO, (AS) 

RTS 

END-CODE 

MACH 


See  also:  XOR  ,  AND  ,  NOT  .  BINARY  .  DECIMAL 
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ORDER 


ORDER 


Format; 

Action:  Search  order  utility  which  displays  the  names  of  the 

vocabularies  in  the  current  search  order  and  the  name 
of  the  vocabulary  to  which  new  definitions  are  currently 
being  appended. 


Example:  This  is  the  initial  search  order : 

ORDER  <cr> 

Search  Order  ;  FORTH 
Definitions  ;  FORTH 
ok  <0> 


See  also;  ONLY  ,  ALSO  ,  DEFINITIONS  .  WORDS 
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FORTH 

Tool 
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OS-9 


Format:  ONLY  OS-9  or  ALSO  OS-9 

Action:  OS-9  is  the  vocatxjiary  which  contains  all  OS-9  specific 

words. 

When  used  with  ONLY,  OS-9  will  become  the  only 
vocabulary  Included  in  the  current  search  order . 

When  used  with  ALSO,  the  OS-9  vocabulary  will  be 
appended  to  the  current  search  order.  This  will  cause  OS-9 
to  become  the  transient  vocabulary  (the  vocabulary  which  is 
searched  first).  Any  other  vocabularies  in  the  search  order  will 
be  searched  after  the  transient  vocabulary.  WORDS  will  only 
display  the  words  in  the  transient  vocabulary  and  the  words 
used  to  specify  the  search  order  when  executed. 


Example:  To  specify  a  search  order  in  which  the  OS-9  vocabula.7 

will  be  searched  first  and  the  FORHH  vocabulary  second : 

ONLY  FORTH  <cr>ok  <0> 

ALSO  OS-9  ‘<cr>ok  <0> 


The  word  ORDER  will  display  the  current  search  order  and 
the  vocabulary  to  which  new  definitions  are  being  appended  : 

ORDER  <cr> 

Search  Order  :  OS-9  FORTH 
Definitions  :  FORTH 
ok  <0> 


To  make  the  OS-9  vocabulary  the  only  vocabulary  which 
is  searched : 

ONLY  OS-9  <cr>ok  <0> 


See  also:  ONLY  ,  ALSO  ,  ORDER  ,  DEFINITIONS 
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Di  ;tionary 
Mar  agement 


Format; 

Action; 


n1  n2  OVER 


Puts  a  copy  of  the  second  item  on  the  parameter  stack 
on  top  of  the  stack. 


Example:  5  6  OVER  <cr>  ok  <3> 

•S  <cr>  5  6  5  <-  TOP  ok  <3> 


For  Assembly  Language  Programmers; 

CODE  OVER  (hi  n2  •  n1  n2  n1  ) 
MOVE.L  4(AS),-(A5) 

RTS 

END-CODE 

MACH 

See  also:  DUP  ,  DROP  ,  PICK  ,  70UP 
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Marii 


^tacl< 

pulation 


PAD  ^  ■  a) 


Format:  PAD 

Action:  Puts  on  the  stack  the  address  of  the  first  byte  of  the  PAD 

scratch  area  in  memory.  The  PAD  should  be  treated  strictly 
as  a  temporary  scratch  area.  It  should  not  be  used  for  storage 
since  many  FORTH  words  use  the  PAD  while  performing  their 
operations. 


gitample:  The  PAD  may  be  used  to  hold  temporary  input  strings  : 

PAD  10  EXPECT  <cr>  ABCDEFGHU  ok  <0> 

PAD  10  TYPE  <cr>  ABCDEFGHU  ok  <Q> 

Keep  in  mind  that  the  number  formatting  words  (which  are  used  for  all  numeric 
output  commands)  use  the  upper  portion  of  the  PAD. 


See  also:  <«  ,  EMIT 
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System/Llocal 

Variable 


PICK 

Format: 

Action: 


Example: 


Stack  before  PICK  - 


See  also:  DUP 


!  •  #$%&  •  0  0-9  :;<  -  >  ?  @A-2  [\1*_  'a-z{ll- 

(n_-._n) _ 


n  PICK 

Moves  a  copy  of  the  nth  item  down  on  the  stack  ( where 
n  a  0  refers  to  the  item  on  top  of  the  stack )  to  the  top  of 
the  stack. 


10  21  32  43  54  65  76  <cr>ok  <7> 

■S  <cr>  10  21  32  43  54  65  76  <-  TOP  ok  <7> 


6th  Item 


4 

2nd  item 


\ 


0th  item 


2  PICK  <cr>ok  <8> 

.S  <cr>  10  21  32  43  54  65  76  54  <-  TOP  ok  <8> 

0  PICK  <cr>  ok  <9> 

.S  ■<cr>  10  21  32  43  54  65  76  54  54  <-  TOP  ok  <9> 


( Note  that  0  PICK  is  equivalent  to  a  DUP. ) 


Stack  after  2  PICK- 


Stack  after  0  PICK- 


DROP  ,  OVER  ,  ROLL 
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54 

54 

/_ 

54 

■—I* 

76 

76 

/ 

65 

65 

/ 

54 

54 

1^1. 

/ 

43 

43 

32 

32 

/ 

21 

21 

/ 

10 

10 

1 

1 

\ 
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QUERY 


Format:  QUERY 

Action:  Transfers  characters  from  the  keyboard  into  the  terminal 

input  buffer  until  either  72  characters  or  a  carriage  return 
is  received.  QUERY  sets  the  >IN  system  vahable  to  zero  arvj 
the  sets  the  #TIB  system  variable  equal  to  the  number  of 
characters  received. 


ExamBla:  The  definition  of  QUERY  is  : 


:  QUERY 

SPAN  @  >R 


TIB  72  EXPECT 
0  >IN  ! 

SPAN  @  «TIB  I 


R>  SPAN  !  ; 


Sinca  QUERY  calls  axpact  it  will  corrupt  ttia  currant 
valua  of  SPAN.  Hara  tha  currant  valua  of  SPAN  is 
baing  storad  temporarily  on  tha  loop  stack. 

EXPECT  puts  up  to  72  charactars  in  tha  TIB. 

A  zaro  valua  in  tha  >IN  systam  variabla  indicatas  that 
tha  currant  input  straam  is  tha  TIB. 


Tha  systam  variabla  SPAN  will  corttain  tha  actual 
numbar  of  charactars  racaKrad  by  EXPECT.  This 
number  is  storad  in  tha  systam  variabla  *TIB.  WORD 
uses  tha  contents  of  #TIB  to  datarmina  whan  it  has 
finished  processing  words  in  thaTIB. 


Restoring  tha  previous  SPAN  valua. 


See  also:  EXPECT  ,  KEY  ,  «TIB  ,  >IN  ,  TIB  ,  QUIT 
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er 
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Format: 

Action: 


Exampift; 


QUIT 

QUIT  is  the  word  which  resets  the  system  (except  for  the 
parameter  stack)  and  starts  FORTH  running  again.  When 
QUIT  is  executed,  it  clears  the  return  stack  and  puts  the 
system  in  the  interpreting  state.  The  system  at  this  point 
is  waiting  (or  keyboard  input.  The  "ok”  message  will  not 
be  seen  until  a  word  (or  a  series  of  wo'ds)  have  been 
successfully  executed. 


The  basic  definition  of  QUIT  is  as  follows: 

:  QUIT 
BEGIN 

(  Clear  return  stack  ) 

QUERY 

(  INTERPRET  the  Input  stream  ) 
"ok"  CR 
AGAIN 

;  <cr>  ok  <0> 


See  also:  QUERY 
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Program 
Control 
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R> 


'  r-from ' 


Format; 

Action: 


Example: 


R> 

Moves  the  number  on  top  of  the  loop  stack  to  the  top  of 
the  parameter  stack. 


5  >R  <cr>  ok  <0> 
R>  .  <cr>5  ok<0> 


Paramater  stack  and  loop 
stack  before  R>  - 


Parameter  stack  and  loop 
stack  after  R>  - 


Parameter 

Stack 


Loop 

Stack 


Parameter 

Stack 


Loop 

Stack 


For  Assembly  Language  Programmers: 

CODE  R>  (  -  n ) 

MOVE.L  06, -(AS) 
MOVE.L  D5,06 
MOVE.L  -(ASI.DS 
RTS 

END'CODE 

MACH 

See  also:  >R  ,  R@  ,  I  ,  J 
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E@ _ (^ji) _ 

■  r-fetch " 


Format;  R@ 

Action;  Moves  a  copy  of  the  top  of  the  loop  stack  to  the  top 

of  the  parameter  stack.  R@  and  I  are  equivalent  but 
I  is  usually  used  only  within  DO  loops. 


Example: 


5  >R  <cr>  ok  <1> 
R(9  .  <cr>  ok  <0> 


Parameter  stack  and  loop 
stack  before  R@  - 


Parameter  stack  and  loop 
stack  after  R@  - 


For  Assembly  Language  Programmers; 


CODE  R@  (  •  n  ) 

MOVE.L  D6,-(A5) 
RTS 

ENO-COOE 

MACH 


See  also:  I  ,  J  ,  R>  ,  <R 
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Stacli 

Manipulation 


RECURSIVE 


Format; 

Action; 


Examplfli 


:  Rb  RECURSIVE 
n  2  < 

IF 

1 

ELSE 

r 

n 

THEN  : 


Sm  also:  :  ,  ;  , 


;  <name>  RECURSIVE  . . .  <name> . . . ; 

Immediate  word  which  is  used  within  a  recursive  colon 
definition  to  clear  the  smudge  bit  of  the  word  being  defined 
so  that  it  may  reference  itself. 


The  following  example  is  a  recursive  evaluation  of  a 
Fibonacci  number.  This  example  also  makes  use  of 
local  variables. 


{  n  ••  }  (  Clears  the  smudge  bit  of  Fb  so  that  Fb  may ) 
(  reference  Fib  recursively  and ) 

(  specifies  that  l  named  input  parameter  ) 

(  -  initialized  local  variable  •  is  set  up  lor  this ) 

(  definition.) 

1-  Rb 

2-  Fib 


(  ;  normally  clears  the  smudge  bit  for  a  completed 
definition.  In  this  case  RECURSIVE  has  already 
made  the  word  visbie  so  :  has  no  additional  effect.) 


SMUDGE 
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ion 


T 


Format; 


Action; 


See  Also; 


BEGIN 

( code  to  be  executed  each  time  through  loop ) 
flag 
WHILE 

( code  to  be  executed  while  flag  is  true ) 
REPEAT 

( code  executed  when  loop  terminates) 


REPEAT  marks  the  end  of  the  BEGIN. .  .WHILE. .  .REPEAT 
program  control  structure.  When  a  true  flag  is  passed 
to  WHILE,  code  between  the  WHILE  and  REPEAT  will  be 
executed  until  the  REPEAT  is  encountered.  At  the  REPEAT, 
program  execution  will  be  rerouted  back  to  the  code 
which  follow;  the  BEGIN.  If  a  false  flag  is  passed  to 
WHILE  the  loop  will  be  terminated  by  allowing  program 
execution  to  continue  to  the  code  which  follows  REPEAT. 
Loop  execution  continues  while  the  flag  is  toie. 


BEGIN  ,  WHILE  ,  REPEAT  ,  AGAIN 


Stt- 


ogra| 

ontr 

UCtlJ 


m 

re 
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ROLL  (n  ■  1 


Format: 

Action: 


Exampla: 


n  ROLL 

Rotates  the  nth  item  on  the  parameter  stack  to  the  top 
of  the  stack  ( where  n  -  0  refers  to  the  item  on  top  of  the 
stack.).  N  must  be  greater  than  0. 

0  ROLL  is  a  null. 

1  ROLL  is  the  same  as  a  SWAP. 

2  ROLL  is  the  same  as  a  ROT. 


10  21  32  43  54  65  76  <cr>ok  <7> 

.S  -«cr>  10  21  32  43  54  65  76  Ok  <-  TOP  <7> 

6th  item  2nd  item  0th  item 


3  ROLL  <cr>  Ok  <7> 

.S  •«cr>  10  21  32  54  65  76  43  <-  TOP  ok  <7> 
6  ROLL  <cr>ok  <7> 

.S  <er>  21  32  54  65  76  43  10  <-  TOP  ok  <7> 


Stack  before  ROa  -  Stack  after  3  ROLL - 


Stackafter6ROLL- 


See  also:  PICK  ,  SWAP  ,  ROT 
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Format:  n1  n2  n3  ROT 

Action:  Takes  the  third  item  on  the  parameter  stack  and  puts 

it  on  top  of  the  stack,  shitting  the  two  items  that  were 
previously  atxive  it  downwards. 


Pvample:  3  2  1  ROT  <cr>  ok  <3> 

.S  <cr>  2  1  3  <-  TOP  Ok  <3> 


r  j 


Format:  SAVE-BUFFERS 

Action:  Wrttes  all  block  buffers  which  are  marked  as  UPOATE'd  to 

disk  and  then  clears  the  update  bit  of  all  the  buffers.  The 
buffers  remain  assigned  to  their  file  block.  UPDATE  and 
SAVE-BUFFERS  Should  be  used  frequently  when  making 
changes  to  a  file  to  avoid  losing  a  targe  airxxint  of  work  due 
to  an  unexpected  event  such  as  power  loss. 

Example:  Writing  Data  to  a  File 

After  opening  a  tile  and  making  the  file  the  current  file  (see  the  BUFFER  glossary  page), 
data  may  be  written  to  the  file  in  1K  (1024  byte)  chunks. 

The  word  BUFFER  will  assign  one  of  the  four  available  block  buffers  to  the  specified  block 
within  the  cunent  file  and  will  return  the  address  of  the  block  buffer  in  memory.  Once  you 
have  the  address  of  this  buffer  you  may  write  up  to  1024  bytes  of  information  into  the 
buffer  in  memory.  When  you  have  completed  putting  data  into  the  buffer,  you  should  use 
UPDATE  to  mark  the  buffer  as  changed  and  then  use  SAVE-BUFFERS  to  have  those 
changes  written  out  to  the  correct  block  within  the  current  file.  For  example,  to  store  1 024 
bytes  of  information  into  the  second  block  of  the  current  file  : 

:  FIII1K  (  bufaddr  -  ) 

1023  0  DO 

ASCII  A  bufaddr  I  ♦  C!  ( Fill  1024  bytas  with  tha  lattar  A. ) 

LOOP 

UPDATE  ( Mark  tha  buflar  as  UPDATEd. ) 

SAVE-BUFFERS  ;  ( Sava  tha  changas  to  tha  lila  on  disk. ) 

1  BUFFER  FIII1 K  4cr>  ( Ask  for  a  buffer  to  ba  assigned  to  block 

1 -the  2nd  block-of  tha  tile.  Pass  tha 
address  of  tha  buffer  to  Rill  K. ) 


See  also:  FLUSH  ,  EMPTY-BUFFERS  .  UPDATE  ,  BUFFER 


1 - 1 


G-iee 
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Format: 

Action: 


SEAL 


Freezes  the  current  search  order  and  removes 
the  link  to  the  words  used  to  change  the  search 
order. 
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Dictionary 

Management 


Format: 

Action; 


SIGN«> 


<* 

Uses  the  sign  bit  of  the  2nd  number  on  the  stack  to  determine 
if  a  minus  sign  should  be  inserted  in  the  next  available  position 
in  the  formatted  ASCIi  string  being  constnjcted. 

Example:  The  word  . ,  which  prints  out  the  signed  value  of  the  number  on 

top  of  the  stack,  uses  SIGN : 


:  .  (  n  •  ) 

OUP  ABS 

««  *S 

SIGN 
«>  TYPE 
SPACE 


(Ouplicate  tha  number  and  taka  tha  absoluta  value  of  the  copy. 
A  poaitiva  value  should  always  be  passed  to  tha  number 
formatting  operators.) 

(Start  the  number  conversion  process.  Convert  all  digits 
in  the  number  to  ASCII  and  insert  them  in  tha  string.) 

(Get  the  second  number  on  the  stack.  H  it  is  negative,  insert 
a  minus  sign  at  this  point.) 

(Finish  the  number  conversion  process  and  TYPE  out  the 
string.) 


Tho  definition  of  SIGN  is: 

:  SIGN  (  nl  n2  •  n2 ) 
SWAP 

Oe  IF 

ASCII  -  HOLD 
THEN 


(Put  the  second  value  on  top  of  the  stack.  Tha  2nd 
number  is  the  number  used  to  specify  tha  sign.) 

(Is  the  number  negative  ?) 

(If  it  is,  put  the  ASCII  value  for  a on  the  stack 
and  insert  it  into  the  string  using  HOLD.) 

(If  it  isn't  negative,  just  exit.) 


See  also:  <«  ,  «  ,  «S  ,  HOLD  ,  «> 
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Format: 

Action: 


SMUDGE 


Toggles  the  smudge  bit  of  the  most  recently  defined  dictionary 
entry.  When  the  smudge  bit  is  set,  the  definition  is  invisible 
to  any  dictionary  search.  :  ( COLON )  sets  the  smudge  bit  to 
make  the  dictionary  entry  being  built  invisible  until  it  has  been 
completed.  This  ensures  that  no  halt-built  definitions  are  found 
and  executed.  RECURSIVE  clears  the  smudge  bit  of  the 
recursive  definition  being  built  so  that  the  definition  may 
reference  itself. 


Example: 


:  ADO-FIVE  (  n  •  )  5  *  ;  SMUDGE  <cr>  ok  <0> 


t 

:  sets  the  smudge 
bit  so  that  AOO-FIVE 
cannot  be  found 
until  it  is  completed. 


t  t _ 

:  clears  the  smudge 
bit  when  the  definition 
is  completed.  Now 
AOO-FIVE  may  be 
found. 


SMUOGE  toggles  the  current 
state  of  the  smudge  bit.  Since 
;  has  just  dearad  the  smudge 
bit.  this  SMUOGE  sets  it  again 
so  now  AOO-FIVE  may  not  be 
found. 


ADD-FIVE  <er>  ADD-FIVE  1 


Since  ADD-FIVE  was  made  invisible  by  SMUDGE, 
it  could  not  be  found  in  the  dictionary  search. ) 


The  definition  of  RECURSIVE  uses  SMUDGE  . 

:  RECURSIVE  SMUDGE  ;  IMMEDIATE  <cr>ok  <0> 


See  also:  ;  ,  ;  ,  RECURSIVE  ,  IMMEDIATE 
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Format;  SPACE 

Action:  Print  one  space. 

Example:  The  foi.nwing  word  will  prirrt  the  numbers  i  through  10 

out  on  a  single  line  - 

:  NUMBERS  CR  11  1  DO  I  .  LOOP  ;  ok  <0> 

NUMBERS  <cr> 

1  23456789  lOok  <0> 


Compare  the  previous  output  to  the  output  of  the  next  word  which  uses 
SPACE  to  insert  two  extra  spaces  between  each  number  • 

:  NUMBERS2 

11  1  DO  I  .  SPACE  SPACE  LOOP  ;  <cr>  ok  <0> 

NUMBERS2  <cr> 

1  23456789  lOok  <0> 


See  also:  SPACES  ,  EMIT 
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Criarac 

I/O 


er 


Format; 

Action; 


number-of-spaces-desired  SPACES 
Prints  n  spaces. 


Example; 


A  high-level  definition  of  SPACES  is  ; 


:  SPACES  (  n  -  )  0  DO  SPACE  LOOP  ;  <cr>  ok  <0> 


STAIRCASE  10  0  DO  I  SPACES  I  .  CR  LOOP  ;  <cr>  ok  <0> 


STAIRCASE  <cr> 


1 

2 

3 

4 

5 

6 

7 

8 


9ok  <0> 


NOTE;  Because  SPACES  uses  the  DO..  LOOP  structure  it  will  always  produce  at 
least  one  space  (even  if  passed  a  zero). 


SPAN 

Format; 

Action: 


Example: 


See  also:  EXPECT 


_ 

SPAN 

Puts  the  address  of  the  system  variable  containing  the 
number  of  characters  actually  received  during  the  last 
execution  of  EXPECT. 

VARIABLE  CHARS  10  VALLOT  <cr>  ok  <0> 
CHARS  10  EXPECT  <cr>  ABCDEF<cr>  ok  <0> 
SPAN  @  .  <cr>  6  ok  <0> 


I - 1 
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VariaMe 


Format: 

Action: 


n1  SORT 


Takes  the  square  root  of  the  number  on  top  of  the  stack 
and  returns  the  integer  result. 


Example: 


25  SORT  .  <cr>  5  ok  <0> 
30  SORT  .  <cr>  5  ok  <0> 


SQRT  will  return  a  zero  if  it  is  passed  a  negative  number. 


See  also:  * 
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or 


Format:  STATE 

Action:  Puts  the  address  of  a  variable  which  indicates  the 

state  of  the  system  (  either  compiling  or  interpreting ) 
on  the  stack.  A  non-zero  value  in  the  STATE  variable 
indicates  compilation  is  occuring.  A  zero  value  in 
STATE  indicates  that  all  input  is  being  interpreted 
and  executed  immediately. 


Example:  :  STATE®  STATE  @  .  ;  <cr>  ok  <0> 

IMMEDIATE  <cr>ok  <0> 


STATE®  <cr>  0  ok  <0> 

/ 

(  Because  the  system  is  executing 
words  immediately,  the  STATE 
variable  contains  a  zero. ) 


:  CHECK-STATE  STATE®  ;  <cr>  -1  ok  <0> 

/ 

{  STATE®  is  an  immediate  word,  so 
the  contents  of  the  STATE  variable  are 
being  examined  during  the  compilation 
of  the  word  CHECK-STATE.  The  contents 
of  STATE  at  this  time  are  non-zero, 
indicating  a  compilation  state. ) 


See  also:  ]  ,  [ 
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SWAP 


(  n1  n2  -  n2  n1  ) 


Format: 

Action; 


n1  n2  SWAP 

Exchanges  the  top  two  items  on  the  stack. 


Example:  2  1  SWAP  <cr>  ok  <2> 

.S  <cr>  1  2  <-  TOP  ok  <2> 


MOVE.L  (A5)>,00 
MOVE.L  (AS), -(AS) 

MOVE.L  00,4(A5) 
RTS 
ENO-COOE 
MACH 

Sea  also:  ROT  ,  ROLL 
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TCALL 
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Format: 

Action; 


Examplft: 


’  trap-call" 


TCALL  <vector#>,<function  code> 

Assembler  word  used  to  generate  user  trap  calls.  User  trap  calls 
are  used  to  access  user  trap  handler  modules  and  the  OS-9  math 
and  CIO  library  modules. 

TCALL  should  be  followed  by  the  trap  vector  number  used  to 
access  the  module  and  the  function  code  to  be  passed  to  the 
module. 

Trap  vector  #0  is  reserved  by  OS-9  for  calls  to  the  kernel  module. 
Trap  vectors  #14  and  #15  are  used  to  access  the  OS-9  math 
modules.  MACH2  uses  trap  vector  #13  to  access  the  MACH2 
disassembler/debugger  trap  handler  module. 


A  very  simple  trap  handler  module  is  created  below  to  demonstrate 
the  use  of  TCALL.  The  module  will  add  2  to  the  function  code 
passed  to  it  and  return  the  result  to  the  calling  program. 
MACHMOOULE  will  return  to  the  shell  after  it  has  finished  creating 
this  new  trap  module: 

;  simple  (  functloncode  -  functloncode«.2  )  I*  ; 
MACHMOOULE  Simple  SImpleModute 

The  following  commands  should  be  typed  after  you 
have  re-entered  MACH; 

5  CONSTANT  SImpleVector 

"  SImpleModule”  U  SImpleVector  ASSIGNMOOULE 

:  Alpha  <  •  n  )  TCALL  SImpleVector, 1  ; 

:  Beta  (  -  n  )  TCALL  SImpleVector, 2  ; 

:  Gamme  (  *  n  )  TCALL  SlmpleVector,8  ; 

Alpha  .  <cr>  3  <ok> 

Beta  .  <cr>4<ok> 

Gamma  .  <cr>  10  <ok> 


See  also:  OSS 
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Format;  THEN  may  be  used  in  two  formats: 

IF 

( oode  executed  if  atme  flag  is  passed  to  IF ) 

THEN 

or  IF 

( oode  executed  if  a  tme  flag  is  passed  to  IF ) 

ELSE 

( oode  executed  if  a  false  flag  is  passed  to  IF ) 

THef 

Action;  THEN  marks  the  end  of  the  IF. .  ELSE. .  .THEN  or  IF. .  .THEN 

program  control  structures.  Program  execution  will 
always  be  routed  to  the  code  following  the  THEN, 
regardless  of  what  flag  is  passed  to  the  IF. 


See  Also;  IF  ,  ELSE 
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Format: 

Action: 


Puts  the  address  of  the  text  input  buffer  on  the  stack.  The 
text  input  buffer  recehrss  all  keyboard  input.  BLK,  >IN, 
#T1B  and  TIB  are  the  four  system  variables  resporisible  for 
maintaining  control  of  the  input  stream. 

QUERY  always  puts  incoming  c^racters  into  the  TIB. 


See  also:  BLK  ,  >IN  .  «TIB 


Syslem/Liocal 

Variame 


!  •  #$%&  ■  0  •  +  ,-./  0-9  ;  ; 


Format: 

Action; 


COUNTER...  <wonls  to  be  timed>. ..TIMER 

Takes  the  contents  ot  the  variable  initialized  by 
COUNTER  and  displays  the  execution  time  in 
seconds  and  ticks.  The  time  display  is  always 
in  DECIMAL.  The  previous  base  is  restored 
after  TIMER  is  finished. 


See  also:  COUNTER 


•ORT 

Tool 
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TURNKEY - 

Format;  TURNKEY  <main-word>  <application  name> 

Action ;  Creates  a  complete  stand-alone  application  with  the  specified 

name  which  will  run  the  specified  FORTH  word  upon  start-up. 
The  application  may  be  mn  from  the  OS-9  shell. 

The  minimum  application  size  is  6K.  The  application  is  given  a 
$4000  byte  stack  area  (shared  by  all  of  the  stacks)  and  a  $4000 
byte  variable  area. 


gyamole:  :  <maln-word>  (  -  ) 

CR 

Press  'R*  lor  RED" 

KEY  ASCII  R  a 
IF 

Red" 

ELSE 
."  Blue" 

THEN 
BYE  ; 

TURNKEY  <maln-word>  Colors  <cr> 

After  MACH2  returns  to  the  shell  you  may  type  'COLORS' 
at  the  shell  prompt  to  run  the  application. 


The  dictionary  headers  are  not  included  in  a  tumkeyed  application  so  the  application 
must  not  reference  any  FORTH  words  which  require  the  headers  presence.  Also, 
once  an  application  has  undergone  the  TURNKEY  process,  the  dictionary  is  Trozen*. 
No  words  which  alter  the  dictionary  (W,  ALLOT  and  any  other  words  in  the  compiler 
segment)  in  any  way  may  be  used  by  the  application  program. 


To  make  sure  you  are  rrot  using  any  compiler  words  in  your  application  program  store 
a  non-zero  value  in  the  system  variable  VERBOSE  and  then  load  your  program.  While 
VERBOSE  is  'on*  warning  messages  will  be  issued  whenever  a  word  in  the  compiler 
segment  is  referenced. 


See  also:  MAKEMOOULE  ,  MACHMOOULE 
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)llcalion 
k/Vord 


Format; 

Action; 


address-of-characters  #-characters-to-type  TYPE 

Prints  the  n  charaaers  stored  starting  at  the  specif  ied 
address  out  to  the  current  output  device. 


Example:  COUNT  takes  the  address  of  a  string  on  the  stack  and  returns 

the  length  of  the  string  and  the  address  of  the  actual  first  byte 
in  the  string  on  the  stack  for  TYPE  ; 


Hello  there  r 


COUNT  TYPE  <cr>  Hello  there !  ok  <0> 


The  number  formatting  vrord  #>  also  sets  up  the  stack  lor  TYPE  ; 

:  PHONE*  (  n  -  ) 

<««*««  ASCII  -  HOLD  «  *  «  «>  TYPE  ;  <cr>ok  <0> 
4445678  PHONE*  <cr>  444-5678  ok  <0> 


See  also:  COUNT  ,  *>  ,  PAD 
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Cnaracier 

.1/0 


Format:  u  U. 

Action:  Prints  the  unsigned  single-length  number  on  top  of  the 

stack  on  the  screen  followed  by  one  space. 


Example:  U.  pays  no  atterrtion  to  the  sign  bit  of  the  number  on  the  stack  : 

HEX  <cr>  ok  <$0> 

•2  U.  <Cf>  FFFFFFFE  Ok  <$0> 

This  is  the  definition  of  U. : 

:  U.  (  n  -  )  <«  US  «>  TYPE  SPACE  ;  <cr>  ok  <0> 


!  •  #$%4  0-9  ;;<  -  >  ?  @A-Z  ‘a-zd)- 


'  u-less-than ' 


Format: 

Action: 


Example; 


u1  u2  U< 

Compares  the  two  unsigned  numbers  on  top  of  the  stack. 
Returns  a  true  flag  if  ui  is  less  than  u2.  and  a  false  flag 
if  u1  is  not  less  than  u2. 


This  example  demonstrates  the  difference  between  using 
the  signed  <  and  the  unsigned  U<. 


HEX  <cr>  ok  <$0> 

•1  AOOO  .  .  <cr>A000  -1  ok  <$0> 
-1  AOOO  <  .  <cr>  -1  ok  <$0> 


-1  AOOO  U.  U.  <cr>  AOOO  FFFFFFFF  ok  <$0> 
-1  AOOO  U<  <cr>  0  ok  <$0> 


Sea  also:  «  ,  U.  ,  0< 


Comparison 

Operator 
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!  •  #$%i  •  0  • 

UM*  (U1  u2  -  u31 _ _  # 

■  u-m-times  “ 

Format:  u1  u2  UM* 

Action;  Multiplies  two  unsigned  numbers  arxt  leaves  the 

unsigned  result  on  top  of  the  stack. 

Example:  HEX  <cr>  ok  <$0> 

FFFFFFFF  2  *  <cr>ok  <$1> 

.  <cr>  -2  ok  <$0> 

FFFFFFFF  2  UM*  <cr>ok  <$1> 

.S  <cr>  1  <-  TOP  ok  <$1i. 


!■#$%&•{)*  +  .-•/  0-9  ::<.>?@A-Z(\]*_'a-z{|)- 


”  u-m-slasfi-mod" 


Format:  u1  u2  UM/MOD 

Action:  Divides  u1  by  u2  and  leaves  the  unsigned  quotient  on  top 

of  the  stack  and  the  unsigned  remainder  below  it. 


Example:  In  the  first  example  signed  division  is  performed.  FFFFFFFF  is  a 

-1  in  signed  arithmetic  so  -1  divided  by  5  leaves  a  quotient  of  0  and 
a  remainder  of  -1 .  The  second  example  uses  an  unsigned  division. 
With  unsigned  division  the  FFFFFFFF  is  not  treated  as  a  -1  and  the 
results  are  a  quotient  of  33333333  and  a  remainder  of  0. 

HEX  <cr>  ok  <$0> 

FFFFFFFF  5  /MOO  <cr>  ok  <$2> 

.S  •<cr>  -1  0  <-  TOP  ok  <$20> 


FFFFFFFF  5  UM/MOD  <cr>  ok  <$2> 
.8  <cr>  0  33333333  <-  TOP  ok  <cr> 


!  ■  #$%&  '()*  +  .•■/  0-9  ;;<->?  @A-Z  [\1''  -a-zd) 

UNTIL  (f.i _ 


Format:  BEGIN 

( code  to  be  executed  while  flag  is  false  (zero) ) 
flag 
UNTIL 

Action:  UNTIL  is  the  decision  maker  in  the  BEGIN. .  .UNTIL 

program  control  structure.  UNTIL  makes  its  decision 
on  whether  or  not  the  loop  should  be  terminated  based 
upon  the  value  of  the  flag  passed  to  it.  If  the  flag  is  tme 
(  non-zero ),  UNTIL  will  terminate  the  loop  by  allowing 
program  execution  to  continue  onto  the  code  which 
immediately  follows  the  UNTIL.  If  the  flag  is  false  ( zero ), 
UNTIL  will  reroute  program  execution  to  the  code  following 
the  BEGIN.  Due  to  the  structure  of  the  BEGIN. .  UNTIL 
loop,  the  code  within  the  loop  will  always  be  executed  at 
least  once. 


See  Also:  BEGIN  ,  WHILE  ,  REPEAT  ,  AGAIN 
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Format:  UPDATE 

Action:  Sets  the  update  bit  of  the  most  recently  accessed  block 

buffer  to  iridicate  that  the  contents  have  been  changed 
and  should  be  saved. 

Example:  One  way  to  make  a  change  to  a  file : 


••  TestFlle.FTH”  1+  3  SOPEN  .  .  <cr>  0 
4  FILEID  !  <cri-  ok  <0> 

2  BLOCK  <cr>ok  <1> 

100  *  <cr>  ok  <1> 

33  SWAP  C!  UPDATE  <cr>  ok  <0> 


4  ok  <0>  \  Opening  a  read/write  version  of 
\  the  file. 

\  Make  the  file  the  current  file  by 
\  stonng  Its  path  number  in  FilelD. 

\  This  returns  the  address  of  the 
\  first  character  in  the  3rd  block 
\  of  the  current  file. 

\  Add  too  to  the  address  left  by 
V  BLOCK  to  get  the  address  of 
\  the  1 00th  byte  in  the  block. 

\  Stonng  a  33  in  the  1 00th  byte  of 
\  of  the  block  and  mark  the  most 
\  recently  accessed  block- 
\  block  2-as  UPDATE'd. 


SAVE'BUFFERS  <cr>  ok  <0>  \  Writing  all  UPDATE’s  blocks  to 

\  the  disk  and  cfearlng  the 
\  UPDATE  bits. 

UPDATE  Should  be  used  after  modifying  a  block  buffer.  Setting  the  update  bit 
guarantees  that  the  buffer  will  be  written  to  disk. 


Sea  Also:  SAVE-BUFFERS  ,  FLUSH 
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'  variable-allot  * 


Format; 

Action: 


Example: 


#bytes-to-allocate-in-variable-space  VALLOT 

Allocates  additional  memory  in  the  variable  space  for  the 
rmst  recerrtly  defined  variable  by  irurementing  the  variable 
pointer,  VP,  by  the  specified  number  of  bytes.  Initialization 
of  storage  locations  allocated  by  VALLOT  is  left  up  to  the 
programmer. 

It  is  very  important  to  note  the  difference  between  VALLOT 
and  ALLOT.  VALLOT  allocates  memory  in  the  variable  space 
while  ALLOT  allocates  memory  in  the  dictionary  space. 

?FREE  may  be  used  to  see  the  effect  on  the  variable  space 
of  VALLOTing  space  in  the  variable  space: 


7FREE  <cr>  ok  <0> 
Code  ;  3268a 
Vars  ;  13390 
Name  ;  16290 
ok  <0> 


Initial  status  of  variable  space. 


VARIABLE  ARRAY  <er>  ok  ■cO> 
7FREE  «er>ok  <0> 


Code  :  32680 
Vara  :  13386 
Name  ;  16270 
ak<0> 


\  VARIABLE  automatically  allocates 
\  4  bytes  of  storage  for  a  new  variable. 
\  Notice  that  the  amount  of  available 
\  variable  space  has  decreased  by 
\  4  bytes  from  above. 


400  VALLOT  <cr>  ok  <0> 
7FREE  <cr>  ok  <0> 


Code 
Vars 
Name 
ok  <0> 


\  The  400  VALLOT  reduced  the 
\  amount  of  available  variable  space 
\  by  400  bytes. 


S««  also:  VP,  VARIABLE 


Memo  y 
Operator 


Format; 

Action: 


Example: 


VERBOSE 

VERBOSE  is  a  tri-state  system  variable  which  controls 
the  issuance  of  certain  warning  messages  during  compilation. 
The  chart  summarizes  the  effects  of  VERBOSE: 


VERBOSE  Content£ffect 

Negative  value  Warning  messages  will  be  issued 

whenever  a  word  not  allowed  in  a 
'generic'  trap  module  is  compiled. 


Zero 


No  action. 


Positive  value  Warning  messages  will  be  issued 

whenever  a  word  not  allowed  in  a 
TURNKEY  module  or  a  'MACH' 
trap  rTxxfule  is  compiled. 


1  VERBOSE  I  <cr>ok<0> 

:  Check  OUIT  ;  <cr> 

OUIT  may  not  be  used  in  a  turnkey  application. 


See  also:  TURNKEY 
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Tool 


Format: 

Action; 


VERIFY 


Returns  address  of  system  variable  whose  contents 
determine  whether  or  not  a  file  will  be  displayed  on 
the  screen  during  loading.  A  non-zero  value  will 
indicate  that  the  file  should  be  displayed  and  a  zero 
value  will  indicate  that  the  file  should  not  be  displayed. 


Format: 

Action: 


!  •  #$%4  •  0  •  +  .  •  •  /  0-9  :  ;  <  -  >  ?  @A-Z  [\]*_  'a-zd)- 


VOCABULARY  <name> 

Defining  word  which  creates  a  dictionary  entry  using  the 
specified  name.  The  dictionary  entry  marks  the  base  for  the 
new  linked-list  of  words  which  wilt  be  added  to  this  vocabulary. 
The  vocabulary  name  is  used  with  ONLY  and  ALSO  to  modify 
the  search  order.  Up  to  9  vocabularies  may  be  defined  by 
by  the  user. 


Example: 


ONLY  FORTH  <cr>  ok  <0>  ( Make  FORTH  the  only  vocabulary 

searched. ) 

VOCABULARY  FONTS  <cr>ok  <0>  ( Create  a  new  vocabulary  named 

FONTS. ) 

ALSO  FONTS  <cr>  ok  <0>  ( Add  the  FONTS  vocabulary  to  the 

search  order. ) 


ORDER  <cr> 
Search  Order  : 
Definitions 
ok  <0> 


FONTS  FORTH 
FORTH 


DEFINITIONS  <cr>ok  <0> 


ORDER  <cr> 
Search  Order  : 
Definitions 
ok  <0> 


( ORDER  shows  the  current  search  ) 

( order  and  the  vocabulary  to  which  ) 

(  new  definitions  will  be  appended. ) 

(  FONTS  is  currently  being  searehad 
first. ) 

(  Oefinitiorts  wilt  make  the  vocabulary 
which  is  currently  being  searched 
first  also  the  vocabulary  to  which  new 
definitians  will  be  appended. ) 


FONTS  FORTH 
FONTS 


See  also:  DEFINITIONS 


g 


Format: 

Action: 


Variable  which  holds  the  otfset  that,  when  added  to  the 
contents  of  the  A6  register,  points  to  the  next  free 
variable  space  location. 


See  Also:  VARIABLE  ,  VALLOT 
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Format: 

Action: 


Examola: 
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*  w-store  ■ 

t6-bit-vaiue  address  W! 

Stores  the  1 6-bit  value  at  the  specified  address. 

The  following  example  shows  th^  even  though  numbers  placed  on 
the  stack  are  represented  using  32-bits,  the  operator  W!  will  take  only 
the  least  significant  word  (i  6-bits)  from  the  stack  and  store  it  in  memory 

HEX  <cr>  ok  <$0> 

VARIABLE  STORAGE  <cr>ok  <$0> 


132F  STORAGE  W!  <cr>ok  <$0> 


The  number  132F 
as  H  appears 
on  the  stack. 


lower  memory  ->  higher  memory 


I  UJ  1*42 


f 

STORAGE 


W!  takes  only  the  lowest-order 
word  from  the  stack  and  stores 
it  starting  at  the  specified  address. 


CODE  Wl  (w  a  •  ) 

MOVE.L  (AS)4-,A0 
MOVE.L  (A5)*,D1 
MOVE.W  01. (AO) 
RTS 
END-CODE 
MACH 


See  also:  W® 
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"w-comma" 


Format: 

Action; 


Examplft; 


n  W, 

Lays  the  low-order  word  of  the  32-bit  value  on  the  stack 
into  the  dictionary,  starting  at  the  address  pointed  to  by 
the  HERE  pointer.  W,  will  first  check  to  make  sure  it  is  on 
a  word  boundary  and  adjust  the  HERE  pointer  if  necessary. 
The  HERE  pointer  is  then  incremented  by  2. 

CREATE  TABLE  <cr>ok  <0> 

10  W,  20  W,  30  W,  40  W,  <cr>ok  <0> 

TABLE  W@  .  <cr>  10  ok  <0> 

TABLE  2  2*  ♦  W®  .  <cr>  30  Ok  <0> 


See  also:  ,  ,  C,  ,  ALLOT  ,  HERE 
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W@_( 


w-fetch  “ 


Format: 

Action: 


Example: 


address  W<§> 

Replaces  the  address  on  top  of  the  stack  by  the  word-length 
1 6-bit)  value  which  is  stored  at  that  address.  The  upper 
2  bytes  of  the  4  byte  value  returned  are  set  to  zero. 

The  following  example  shows  that  the  W@  operator  will 
return  the  1 6-bit  value  which  is  stored  starting  as  the 
specified  address : 

HEX  <cr>  ok  <$0> 

VARIABLE  STORAGE  <cr>  ok  <$0> 

321 F  STORAGE  W!  <cr»  ok  <$0> 


Bytes  in  memory ; 


STORAGE 


STORAGE  W<9  .  <cr>  32IF  ok  <$0> 


For  Assembly  Language  Programmers: 

CODE  W(3)  (a  •  w) 

MOVE.L  {A5)*,A0 
CLR.L  01 
MOVE.W  (AO), 01 
MOVE.L  01, -(AS) 

RTS 

ENO-COOE 

MACH 

See  also:  W!  ,  Og)  ,  Cl  ,  <9  >  I 
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WHILE 


Format:  BEGIN 

( code  executed  each  time  though  the  loop ) 
flag 
WHILE 

( code  executed  while  flag  is  true ) 

REPEAT 

( code  executed  when  loop  is  terminated ) 

Action:  WHILE  is  the  decision  maker  in  the  BEG1N...WHILE... REPEAT 

program  control  structure.  If  the  flag  passed  to  WHILE  is 
true  (non-zero),  the  code  between  the  WHILE  and  REPEAT 
will  be  executed  until  the  REPEAT  is  reached.  Upon  reach¬ 
ing  the  REPEAT,  program  execution  will  be  rerouted  back 
to  the  code  which  follows  the  BEGIN.  If  the  flag  passed  to 
WHILE  is  false  (zero),  WHILE  will  terminate  the  loop  by 
reroutine  program  execution  to  to  the  code  which  immediately 
follows  the  REPEAT.  Due  to  the  structure  of  the 
BEGIN. .  .WHILE. .  .REPEAT  loop,  code  between  the 
WHILE  and  REPEAT  may  not  be  executed  at  all  if  a  false 
flag  is  passed  to  WHILE  during  the  first  pass  through  the 
loop. 


Example:  :  TEST-LOOP 

BEGIN 


( Phrase  which 
generates  a 
flag  for 
WHILE) 


.**  Hit  a  space 
KEY  32  a 
WHILE 

I’m  still  alive 
REPEAT  ; 


(REPEAT  will 


always  reroute 
program  execution 


( Code  executed  each  time 


to  continu 


through  the  loop. ) 
CR 


H"  CR 

\ 


Code  which  is  executed 
only  if  flag  passed  to 
WHILE  is  true.) 


to  the  code  which 


follows  the  BEGIN.) 


See  Also:  BEGIN  .  REPEAT  ,  UNTIL  .  AGAIN 
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Format: 

Action: 


Example; 


ascii-value  WORD 

Reads  a  string  from  the  input  stream  using  the  given 
character  as  a  delimiter.  Once  WORD  has  found  a  string 
surrounded  by  the  given  delimiter  it  inserts  a  length  byte 
in  front  of  the  string  to  indicate  how  many  characters 
are  in  that  string.  Then  WORD  moves  the  whole  string 
including  the  length  byte  to  a  location  4  bytes  above  the 
top  of  the  names.  WORD  puts  the  string  at  this  location 
because  if  the  string  happens  to  be  the  name  of  a  new 
definition,  that  new  definition  will  already  have  its  name 
in  place  and  the  rest  of  the  dictionary  entry  may  be  built 
around  it.  WORD  leaves  the  address  of  the  length  byte  of 
the  string  on  top  of  the  stack. 

WORD  also  has  a  special  *wild-card*  option.  If  a  zero  is 
passed  to  WORD  it  will  return  the  next  character  in  the 
current  input  stream. 

The  example  below  will  show  how  WORD  may  be  used  to 
get  the  next  word  surrounded  by  spaces  from  the  input  stream. 
The  word  will  be  stored  in  a  storage  location  for  future  use: 

20  VALLOT  <cr>  ok  <0> 


VARIABLE  Storage  20  VALLOT  <cr>  ok  <0> 

:  GatStrIng  (  deal  |  Ian  are  -  } 

32  WORD  (Gats  next  string  surrounded  by  spaces. ) 

COUNT  •>  len  ( Gat  length  byte  and  actual  string  address. ) 

•>  are 

•1  are  ( Adjuat  address  and  length  to  include  length  ) 

1  len  ( byte  in  CMOVE  operation. ) 

arc  daat  count  CMOVE  ;  ok  <0>  ( Move  string  to  storage  location. ) 

Storage  QetStrIng  HELLO  <cr>  ok  <0> 

Storage  COUNT  TYPE  <cr>  HEaO  ok  <0> 


WORD  normally  passes  all  characters  it  receives  through  an  internal  translate  table'.  The 
translate  table  used  by  WORD  does  not  affect  the  case  of  any  character  it  receives  but  it 
does  convert  all  non-printable  characters  (CR .  LF .  TAB  ,  ESC  ,  etc)  to  spaces. 

The  translate  table  is  not  used  with  the  wikt-card  option  mentioned  above.  When  the  end  of  the 
input  stream  is  reached  when  using  the  wild-card  option  a  zero-langth  string  will  be  returned. 

The  following  example  shows  how  the  screen  line  comment  operator,  \ ,  may  be  defined  by 
usirtg  the  wild-card  option  ; 

:  \  BEGIN  0  WORD  COUNT  Oa  SWAP  C®  13  a  OR  UNTIL  ;  IMMEDIATE 

\  ignores  all  characters  until  a  zero  length  string  or  a  carriage  return  is  encountered. 

«  Ctiaraf 

See  also:  #TIB 


Format;  WORDS 

Action;  Displays  on  the  screen  all  words  which  belong  to  the 

vocabulary  which  is  currently  being  searched  first,  the 
transient  vocabulary.  The  listing  may  be  suspended  at 
any  time  by  pressing  a  key  and  restarted  again  by  hitting 
the  space  bar.  Striking  any  other  key  will  tenninate  a 
suspended  WORDS  listing. 


Example:  To  see  a  listing  of  the  FORTH  vocabulary  : 


ONLY  FORTH  <cr>  ok  <0> 
WORDS  <cr> 


TURNKEY  MAKEMODULE  TCALL 

S  "  ASCII 

$  QUIT  \ 

DEPTH  ABORT  ABORT* 


Space  Bar  to  Continue 
ok  <0> 


DUMP 

ASSIGNMODULE 

( 

ABORT_VECTOR 


To  see  a  listing  of  the  ASSEMBLER  vocabulary ; 


ALSO  ASSEMBLER  <cr>  ok  <0> 

WORDS  <cr> 

ADDX.L  AOOX.W 

SUBX.W  SUBX.B 

RTD  STOP 

CMPM.L  CMPM.W 

Space  Bar  to  Continue 
ok  <0> 


ADDX.B 

SBCO 

MOVEP.L 

CMPM.B 


SUBX.L 

ABCD 

MOVEP.W 

MOVEM.W 


See  also:  FORTH  ,  ASSEMBLER 
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ORT 

Tool 


W_EXTL(  nl  •  n2  ) _ 

”  word-extend" 

Format;  8-bit*value  W_EXT 

Action:  Extends  the  byte-length  (8-bit)  vahje  in  the  lower  byte  of 

the  number  on  top  of  the  stack  into  a  word-length  (1 6-bit) 
value  by  copying  bit  7,  the  sign  bit  for  a  byte-length  value, 
to  bits  9-15  of  the  word-length  value. 


See  also:  L  EXT 
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imber 
I/O  I 


Format: 

Action: 


I  II I  t 

n1  n2  XOR 


"  exclusive-or " 


Performs  the  bit-oy-bit  logical  exclusive-or  of  nl  with  n2. 
Leaves  the  result  on  top  of  the  stack. 


Example:  The  truth  table  for  XOR  is: 


A_ 

B 

A  XOR  B 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 

A  common  use  of  XOR  is  for  flipping  bits  in  a  number.  In  the  following  example  the  binary 
number  1 1 1 1 1 1 1 1  is  used  to  flip  all  the  bits  (perform  a  one's  complement)  of  a  byte  value  : 

BINARY  <cr>  ok  <%0> 

10101010  <cr>  ok  <%1> 

11111111  XOR  «cr>ok<%1> 

.  <cr>  1010101  ok  <%0> 

DECIMAL  <cr>  ok  <0> 


For  Assembly  Language  Programmers: 

CODE  XOR  (  nl  n2  •  n3  ) 
.  MOVE.L  (A5)*,D0 

EOR.L  00, (AS) 

RTS 
END-CODE 
MACH 

See  also:  OR  ,  AND  ,  NOT 
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[ _ _ 

"  left-bracket " 

Format:  Generally  used  in  the  following  fomtat  - 

. code  being  compiled . 

[  code  to  be  executed  immediately  ] 

. code  being  compiled . 

Action;  Ends  compilation  so  that  subsequent  text  is  interpreted. 


Example:  :  IMPATIENT  Couldn't  wait  !"  ;  <cr>  ok  <0> 


:  PATIENT 

[  IMPATIENT  ]  I  waited.  "  ;  <cr>  Couldnl  wait !  ok  <0> 

/ 

( IMPATIENT  was  executed  even  though 
it  is  not  an  immediate  word  because 
[  put  the  system  into  the  interpreting 
state.  Any  words  which  follow  (,  such 
as  IMPATIENT,  are  forced  to  execute 
immediately  and  will  not  compile  any 
code. ) 

PATIENT  f  waited,  ok  <0> 

/ 

(  When  PATIENT  is  executed,  only  the  words  which 
were  allowed  to  compile  code  will  be  run.  ) 


Sea  also:  ]  ,  IMMEDIATE  ,  COMPILE 


ion 
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"  bracket-tick " 


Format:  f]  <name> 

Action;  Immediate  word  used  within  a  colon  definition  to  compile  the 

parameter  field  address  of  the  next  word  in  the  definition  as  a 
literal.  During  execution  of  the  definition  the  address  will  be 
pushed  on  the  stack.  If  the  word  is  not  found  in  the  current 
dictionary  search  an  error  message  is  issued. 

n  is  a  smart  word  that  will  support  both  PC-relative  and  jump 
table  addressing  modes. 

Example:  f]  could  be  used  to  store  the  address  of  a  custom 

ABORT  handling  routine  in  the  ABORT_VECTOR 
system  variable: 


:  INSTALL  n~,CuStomAbort  ABORT.VECTOR  ! 
NOTE:  n  must  be  used  in  colon  definitions. 


See  also:  '  ,  LITERAL 
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fCOMPILEl _  • 

'  bracket-complir 

Format:  :  <name> . [COMPILE]  <immediate  definition> . 

Action:  Forces  the  compilation  of  an  IMMEDIATE  definition  which 

would  normally  be  executed  during  compilation. 

Example:  The  following  seqtience  of  words  could  be  used  in  place 

of  [COMPILE]  to  achieve  the  same  effect: 

.  .  .  n  <nama>  EXECUTE - 

The  immediate  word  SPEAK-NOW  from  the  IMMEDIATE  glossary  entry  can  be  compiled 
by  [COMPILE] : 

:  SPEAK-NOW  Compiling...’*  ;  IMMEDIATE  <cr>  ok  <0> 

:  SPEAK-LATER  [COMPILE]  SPEAK-NOW  ;  <cr>  ok  <0> 

SPEAK-LATER  <cr>  Compiling...  ok  <0> 


See  also;  IMMEDIATE  ,  COMPILE 
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Format: 

Action: 


"  back-slash " 


\ 

Single-line  commenting  word.  Any  words  loltowing  \ 
on  the  current  line  will  be  skipped  over. 


Sm  also:  ( 
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] _ _ 

‘  right-bracket " 


Format:  Generally  used  in  the  following  format  - 

. code  being  compiled . 

[  code  to  be  executed  immediately  ] 

. code  being  compiled . 

Action:  Ends  interpretation  so  that  subsequent  text  is  compiled. 


Example:  Vectored  execution  : 

HEX 

:  RTS  4E75  W,  ;  IMMEDIATE 

CREATE  VECT-RUN 

]  UP 
RTS 
DOWN 
RTS 
LEFT 
RTS 
RIGHT 
RTS  [ 

:  VECTORED  ( n  •  ) 


VECT-RUN  ♦ 
EXECUTE  : 


2  VECTORED  <cr> 


{ A  4E75  is  the  opcode  for  an  RTS 
instruction. ) 

( Assembly  language  instructions  generated  : ) 
(  JSR  UP  ) 

(  RTS  ) 

(  JSR  DOWN  ) 

{  RTS  ) 

(  JSR  LEFT  ) 

(  RTS  ) 

(  JSR  RIGHT  ) 

{  RTS  ) 


( Multiply  the  index  by  6  since  a 
'jump  to  subroutine'  [JSR]  plus 
an  RTS  instruction  takes  up  a  total 
of  6  bytes.  ) 

(  Add  the  index-offset  to  the  address 
of  the  start  of  the  table. ) 

(  EXECUTE  what  is  at  this  address. ) 


( This  would  cause  LEFT  to  be  executed. ) 


See  also:  [  ,  IMMEDIATE  ,  COMPILE 


Compila 

yvord 


lon 
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A 

Format: 

Action: 

Example: 


See  also:  •: 


'haf 


''  <name  of  local  variable  or  named  input  parameter> 


Returns  the  address  of  the  local  variable  or  named  input 
parameter  whose  name  follows  it.  ''  must  be  used  in  a 
colon  definition. 


Local  variables  should  be  used  whenever  temporary 
scratch  variable  space  is  needed.  The  word  'Get20igits' 
below  uses  EXPECT  to  get  a  2  digit  input  from  the  user. 
Since  the  input  will  be  very  small  (a  2  digit  input  requires 
only  two  bytes)  a  local  variable  loration  can  be  used  for 
the  EXPECT  bluffer.  By  usir>g  a  local  variable  rather 
than  a  global  variable  (created  by  VARIABLE),  four 
bytes  of  variable  space  are  saved  and  the  routine 
becomes  re-entrant: 


ONLY  FORTH  DEFINITIONS 
DECIMAL 

:  Gat2Dlglts  (  |  ExpeetBuf  -  ) 

CR 

input  a  two  digit  numbar  •»  " 

*■  ExpaetBuf  2  EXPECT  \  pass  address  of  local  variabla 
*  ExpaetBuf  NUMBER?  \  to  EXPECT  and  NUMBER? 

IF 

Tha  number  was  •>  "  . 

ELSE 

DROP 

CR  Invalid  input.  " 

THEN  ; 

Gat20lglts  <cr> 

Input  a  2  digit  numbar  ->  3  4  The  number  was  ->  34 
ok  '<0> 


.  ■*■> 
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!  •  #$%4  •()*♦.-•/  0-9  ::<■>  ?  @A-Z  (\I*_  ’a-zd) 

{ _ 


{  (names  O  initialized  local  vanabies)  I 
(names  of  non-initialized  local  variables)  (comments)  } 

{ marks  the  start  of  a  local  variable  list.  Local  variables 
are  those  whose  contents  are  valid  only  when  the  particular 
definition  that  they  are  defined  for  is  being  executed. 

Because  they  are  local  variables,  as  opposed  to  global  variables, 
they  will  support  reentrant  code  when  writing  recursive  or 
multi-tasking  programs. 

A  local  variable  list  may  contain  up  to  three  fields-a  field  for 
initialized  local  variables,  a  field  for  non-initialized  local 
variables,  and  a  comment  field.  Examples  of  uses  of  and  syntax 
for  local  variables  are  given  below. 

Example:  The  following  local  variable  example  takes  two  numbers  off  the 

stack,  stores  them  in  the  named  input  parameters  X  and  Y, 
squares  each  number,  and  adds  the  squared  values  together 
to  get  the  final  result. 

:  SQUARED  {  X  Y  -  result  } 

X  X  * 

Y  Y  * 

*  :  <cr>ok  <o> 

4  5  TEST  .  <cr>  41  ok  <0> 

Anything  in  the  local  variable  list  after  a  is  treated  as  a  comment  and  ignored. 

The  name  'resulT  is  included  only  as  a  reminder  that  a  value  is  left  on  the  stack. 

Other  equivalent  local  variable  lists  for  the  above  example  are  : 

(X  Y  .  )  (  X  Y  I  )  {  XY  I  -  ) 


Format: 

Action: 


See  also:  •> 
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OS-9  VOCABULARY  WORDS 

SCLOSE 

SCREATE 

SDELETE 

$OPEN 

SWRITE 

?OS9ERROR 

ERRORPATH 

FILEID 

PARAM_PTR 

RESPONSE 

SCLOSE  (  pathnuinb«r  -  errorcoda  ) 

SCLOSE  will  close  the  file  specified  by  the  path  number. 

SCREATE  (  pathenameaddr  fiteattrlbutes  accassmoda 

•  pathnumbar  arrorcoda  ) 

SCREATE  will  try  to  create  using  the  specified  pathname  and  wiil  try  to  give  the  file  the 
specified  permission  attributes.  If  successful,  SCREATE  will  open  the  file  with  the  specified 
access  mode  and  will  return  the  pathnumber  as  the  second  number  on  the  stack. 

SCREATE  will  return  an  error  code  on  top  of  the  parameter  stack. 

SOELETE  (  pathnamaaddr  accessmoda  •  arrorcoda  ) 

SOELETE  will  look  for  the  file  specified  by  the  name  string  and  try  to  delete  it. 

SO  PEN  (  pathnamaaddr  accassmoda  •  pathnumbar  arrorcoda  ) 

SOPEN  will  try  to  open  a  the  file  specified  by  the  path  string  using  the  specified  access  mode. 

SWRITE  (  buffaraddr  Ian  pathnumbar  •  tbytaswrlttan  arrorcoda  ) 

Takes  the  requested  number  of  bytes  from  the  buffer  pointed  to  by  the  Dufferaddr' 
parameter  and  attempts  to  write  them  to  the  open  file  specified  by  the  file  reference 
number.  The  bytes  will  be  written  to  the  file  starting  at  the  specified  offset  into  the  tile. 

After  the  write  is  completed  the  number  of  bytes  actually  written  and  an  error  code 
will  be  returned  on  the  stack. 


G-211 

OS-9  Vocabulary  Words 


70S9ERR0R  (  •rrorcod*  •  ) 

Evakjates  the  error  code  passed  to  it.  If  an  error  has  occurred.  70S9ERR0R  will  print 
out  an  error  message  in  OS-9  format  (Error  #mmm;nnn).  if  ERRORPATH  contains 
a  valid  path  number  for  an  error  message  file,  an  additional  text  message  will  also  be 
printed.  If  no  error  has  occurred,  70S9ERR0R  will  do  nothing. 

ERRORPATH  (  •  a  ) 

ERRORPATH  is  the  MACH2  system  variable  used  to  hold  either  the  path  number  of  a 
valid  error  message  file  or  0.  (see  70S9ERR0R  above) 

FILEID  (  -  a  ) 

FILEID  is  the  MACH2  system  variable  used  to  hold  the  path  number  of  the  current  path. 

PARAM_PTR  (  -  a  ) 

Returns  the  address  of  the  null-terminated  parameter  string  passed  to  this  process 
when  the  process  was  started. 

RESPONSE  (  •  a  ) 

RESPONSE  is  the  MACH2  system  variable  used  to  hold  the  address  of  a  signal 
intercept  handling  routine. 
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MATH  VOCABULARY  WORDS 

F! 

F* 

F+ 

F- 

F. 

F.S 

F/ 

F. 

F>l 

F@ 

FATAN 

FCOS 

FDROP 

FDW> 

F«*x 

FIXED 

Ftog 

Fin 

FNEGATE 

FOVER 

FP 

FPICK 

FROU. 

FROT 

FSIN 

FSQRT 

FSWAP 

FTAN 

Fy*x 

l>F 

INT 

PRECISION 
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F!  (ai  -  I  FI  -  ) 

Stores  the  floating  point  number  on  top  of  the  floating  point  stack  into  the  address  on 
top  of  the  parameter  stack. 

F*  (  -  1  FI  F2  -  F3) 

MuitipliesF1*F2  and  leaves  the  floating  point  result  on  top  of  the  floating  point  stack. 

F+  (  -  I  FI  F2  -  F3) 

Replaces  the  two  rtumbers  on  top  of  the  floating  point  stack  with  their  floating  point  sum. 
F-  (  -  I  FI  F2  -  F3 ) 

Subtracts  F1-F2  and  leaves  the  floating  point  result  on  top  of  the  floating  point  stack. 

F.  (-IF.) 

Displays  the  number  on  top  of  the  floating  point  stack  on  the  screen  according  to  the 
current  display  characteristics  set  by  FIXED  and  FLOAT. 

F.S  (  -  I  -  ) 

Non^jestructively  displays  the  contents  of  the  floating  point  stack. 

F/  {  -  I  FI  F2  -  F3  ) 

Divides  F1/F2  and  leaves  the  floating  point  result  on  top  of  the  floating  point  stack. 

Fa  (  .  I  I  FI  F2  -  ) 

Compares  the  two  numbers  on  top  of  the  floating  point  stack.  Returns  a  true  (non-zero) 
flag  on  the  parameter  stack  if  the  two  numbers  are  equal.  Returns  a  false  (zero)  flag  on 
the  parameter  stack  if  the  two  numbers  are  not  equal. 

F>l  (  •  n  I F  •  ) 

Converts  the  number  on  top  of  the  floating  point  stack  to  an  integer  and  puts  it  on  top  of 
the  parameter  stack. 

F(9  (a  .  I  •  F  ) 

Puts  the  floating  point  number  stored  at  the  address  on  top  of  the  parameter  stack  on  top 
of  the  floating  point  stack. 

FATAN  (  -  I  Ft  .  F2) 

Calculates  the  arctangent  of  the  number  on  top  of  the  floating  point  stack  and  leaves  the 
result  on  top  of  the  floating  point  stack. 
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FCOS  (  ■  I  FI  ■  F2) 

Replaces  the  angle  on  top  of  the  floating  point  stack  by  the  cosine  of  the  angle. 

The  angle  should  be  expressed  in  radians. 

FDROP  (  -  I  FI  -  ) 

Removes  the  number  on  top  of  the  floating  point  stack. 

FOUR  (  -  I  F  -  F  F) 

Duplicates  the  number  on  top  of  the  floating  point  stack 

Fe^'x  (  -  1  F1  ■  F2) 

Calculates  the  natural  or  base-e  exponential  of  the  number  on  top  of  the  floating  point 
stack  and  returns  the  result  on  top  of  the  floating  point  stack. 

FIXED  ( n  -  I  -  ) 

Uses  the  number  on  top  of  the  parameter  stack  to  set  the  number  of  digits  which  will  be 
displayed  after  the  decimal  point  in  FIXED  point  format.  After  FIXED  is  used,  all  floating¬ 
point  numbers  will  be  displayed  in  fixed  point  format  with  the  specified  number  of  digits 
displayed  after  the  decimal  point.  The  default  fixed  number  display  includes  four  digits 
after  the  decimal  point. 

Fin  (  -  I  FI  -  F2) 

Calculates  the  natural  or  base-e  logarithm  of  the  number  on  top  of  the  floating  point  stack 
and  returns  the  result  on  top  of  the  floating  point  stack. 

Flog  (  -  I  Ft  .  F2) 

Calculates  the  logarithm  to  the  base  10  of  the  number  on  top  of  the  floating  point  stack  and 
returns  the  result  on  top  of  the  floating  point  stack. 

FMEQATE  (  •  |  F  -  -F ) 

Negates  the  value  of  the  floating  point  number  on  top  of  the  floating  point  stack. 

FOVER  (  •  I  Ft  F2  -  FI  F2  FI  ) 

Puts  a  copy  of  the  second  number  on  the  floating  point  stack  on  top  of  the  floating  point  stack. 

FP  (  .  I  .  ) 

Puts  the  system  in  the  floating  point  mode.  All  numbers  entered  after  FP  which  contain 
decimal  points  (periods)  or  exponents  will  be  converted  to  80-bit  floating  point  numbers  and 
placed  on  the  floating  point  stack.  Numbers  which  do  not  contain  decimal  points  will  be 
treated  as  integer  values  and  will  be  placed  on  the  parameter  stack.  INT  returns  the  system 
to  the  integer  rnode. 
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FPICK  (n  -  1  •  F  ) 

Moves  a  oopy  of  the  nth  item  down  on  the  floating  point  stack  (where  n  -  0  refers  to  the  top 
item  on  the  floating  point  stack)  to  the  top  of  the  floating  point  stack.  FPICK  takes  the  integer 
vaiue  n  from  the  top  of  the  parameter  stack. 

FROLL  ( n  -  I  -  ) 

Rotates  the  nth  item  on  the  floating  point  stack  to  the  top  of  the  floating  point  stack  (where 
n>0  refers  to  the  item  on  top  of  the  floating  point  stack).  FROLL  takes  the  integer  vaiue  n 
from  the  top  of  the  parameter  stack.  N  must  be  greater  than  0. 

FROT  (  -  I  FI  F2  F3  -  F2  F3  FI) 

Rotates  the  third  number  on  the  floating  point  stack  to  the  top  of  the  floating  point  stack. 

FSIN  (  -  I  FI  -  F2) 

Replaces  the  angle  on  top  of  the  floating  point  stack  by  the  sine  of 
the  angle.  The  angle  should  be  expressed  in  radians. 

FSQRT  (  -  I  FI  -  F2) 

Replaces  the  number  on  top  of  the  floating  point  stack  with  its  square  root. 

FSWAP  (  -  I  FI  F2  -  F2  FI  ) 

Switches  the  positions  of  the  two  numbers  on  top  of  the  floating  point  stack. 

FTAN  (  .  I  FI  -  F2) 

Replaces  the  angle  on  top  of  the  floating  point  stack  by  the  tangent  of  the  angle. 

The  angle  should  be  expressed  in  radians. 

Fy^x  (  -  I  FI  F2  -  F3) 

Calculates  the  value  F1^F2  using  the  two  numbers  on  top  of  the  floating  point  stack  and 
returns  the  result  on  top  of  the  floating  point  stack. 

I>F  (n  .  I  -  F) 

Converts  the  number  on  top  of  the  stack  to  a  floating  point  number  and  puts  it  on  top  of 
the  floating  point  stack. 

INT  (  .  I  .  ) 

Puts  the  system  into  integer  mode.  All  numbers  entered  are  treated  as  integers  and  placed 
on  the  parameter  stack. 

PRECISION  (  n1  n2  -  I  •  ) 

Sets  the  precision  for  all  subsequent  floating  point  operations.  The  two  v^es  passed  to 
PRECISION  are  used  to  specify  the  precision.  The  bottom  table  on  page'H!^4  of  the 
OS-9/68000  Operating  System  Technical  Manual  contains  the  hexadecimal  representations 
which  should  be  passed  to  PRECISION. 
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ALIGN 

DC 

OS 

EQU 

HEADER 

LABEL 

OS9 


.ALIGN  (  •  ) 

ALIGN  is  used  to  ensure  that  the  next  piece  of  data  (either  code  or  constant  values) 
put  into  the  dictionary  wiil  be  aligned  in  memory  on  an  even  word  boundary.  If  the 
next  position  in  the  dictionary  lies  on  an  odd  address  a  zero  byte  wiil  be  inserted  as 
'padding'.  .ALIGN  is  comrrwnly  used  when  defining  character  strings  since  string  data 
often  ends  up  on  an  odd  address  boundary: 


HEADER 

Errorl 

DC.B 
•  ALIGN 

12,‘lnvalld 

Year' 

HEADER 

Error2 

DC.B 

.ALIGN 

13,'lnvalld 

Month' 

HEADER 

Errors 

DC.B 

.ALIGN 

11, 'Invalid 

Day' 

HEADER 

ErrorA 

DC.B 

.ALIGN 

12,'lnvalld 

Hour' 

DC  (  -  )  Formal: 

HEADER  <name> 

DC.S  <data> 

DC  is  used  to  place  constant  data  into  the  dictionary  area.  <data>  can  be  an  arithmetic 
expression,  a  character  string,  or  any  number  of  expressions  or  character  strings  sepcirated 
by  commas.  A  character  string  may  contain  any  printable  ASCII  character  (including  spaces) 
and  must  be  surrounded  by  single  quotes.  To  include  a  single  quote  in  a  character  string, 
precede  the  single  quote  by  a  single  quote.  The  size  suffix  (L,  W,  or  B)  is  used  to  specify 
the  size  of  the  data  laid  down  by  OC.  if  OC.W  or  OC.L  is  used  to  generate  a  character  string 
constant  the  final  word  or  long  word  will  be  padded  (to  the  right)  with  zeroes  if  the  characters 
do  not  completely  fill  it.  HEADER  is  used  with  OC  to  mark  the  position  of  the  data  in  the 
dictionary; 


HEADER 

Long  Data 

DC.L 

$434F4445 

HEADER 

ExprasaionDaQC.W 

45-»(5*6).{4/2) 

HEADER 

LotaOfData 

DC.B 

.ALIGN 

45*3,$7F,'HI','Bya' 

HEADER 

StrlngData 

DC.B 

.ALIGN 

'String  with  spzeas 
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DS  (  -  )  Format:  LABEL  <name>  DS.s  <num> 

DS  is  used  to  reserve  variable  storage  space  in  the  data  area.  <num>  is  an  arithmetic 
expression  or  constant  used  to  indicate  how  many  ‘units'  of  memory  should  be  reserved. 
The  size  of  a  'unit'  is  specified  by  the  DS  suffix  (L,  W.  or  B).  LABEL  is  used  to  marV  the 
location  of  the  reserved  variable  space  in  the  data  area.  Each  of  the  uses  of  DS  below  will 
cause  48  bytes  of  variable  storage  to  be  reserved: 

LABEL  MethodOne  OS.L  $C 

LABEL  MethodTwo  OS.W  2  4 

LABEL  MathodThraa  DS.B  4  8 

LABEL  MethodFour  DS.B  2‘2‘4*(34-1 2/4) 

EQU  (  -  )Format:  EQU  <name>  <value> 

Assembler  directive  used  to  assign  values  to  a  symbolic  name.  The  value  assigned  to 
the  name  may  be  a  constant.expression.  or  addressing  mode. 

Assigning  an  axprassion  to  a  name  (the  expression 
will  be  evaluated  according  to  the  arithmetic  precedence 

niles  described  in  the  assembler  section):  EQU  Seca/Year  365*24*60*60 

Assigning  a  constant  (number)  to  a  name:  EQU  CR  $13 

Assigning  an  addressing  mode  to  a  symbolic  name:  EQU  M$Nama  $C(A0) 

HEADER  (  -  )  Format:  HEADER  <name>  DC(B).X  <values> 

Used  to  mark  the  location  of  constant  data.  The  address  of  constant  data  may  be 
obtained  by  licking'  the  name  of  its  HEADER. 

LABEL  (  •  )  Format:  LABEL  <name>  DS.X  <nurrber> 

Used  to  mark  the  location  of  variable  storage  space.  The  address  of  a  storage  space 
may  be  obtained  by  executing  the  name  following  LABEL. 

OS-9  (  •  )  Format:  OS9  <name  of  system  roo((ne> 

Assembler  word  used  to  generate  OS-9  system  calls. 
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Appendices 


APPENDIX  A:  MACH  2  Dictionary  Header  Structure 


Dictionary  Header: 


LENGTH  BYTE 

c 

A 

T 

HHlHii 

Link  Reid  (4  bytes) 

Length  Reid  (1  byte) 

Name  Reid  (variable  length) 
Segment  Reid  (2  bytes) 

Parameter  Field  Pointer  (4  bytes) 


Total  header  field  length  is  1 1  bytes  plus  the  length  of  the  name  field. 

The  LINK  FIELD  contains  a  relative  32-bit  pointer  to  previous  word  in  the  dictionary  which 
is  also  in  the  same  vocabulary. 

The  SEGMENT  FIELD  contains  a  value  which  indicates  hew  the  parameter  field  address 
may  be  found.  The  SEGMENT  FIELD  works  together  with  the  PARAMETER  FIELD: 


SEGMENT  FIELD  MEANING 
0  User-defined  word. 

1  Kernel  word. 

2  Floating  point  word. 

3  Disk  I/O  word. 

4  Compiler  word 


PARAMETER  FIELD 

Contains  offset  to  word  from  base  of  kernel. 

Contains  jump  table  offset. 

Contains  jump  table  offset. 

Contains  jump  table  offset. 

Contains  jump  table  offset. 


Close-Up  of  Length  Byte: 


f 


f  ■ 

Name  length.  Names  containing  up 
to  32  characters  may  be  used. 


Length  Field  (tbyte) 


I  SMUDGE  bit 
MACH  bit 


IMMEDIATE  bit 
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APPENDIX  B:  MACH  2  Register  Usage 


A3 


- 


I  1 

YMyz/mm 


I  p«  I 


Tha  A7  is  tha  ragistar  usad  to  control  MACH  2's  subroutina  stack. 
This  is  tha  stack  which  holds  all  tha  ratum  addrasses  ganaratad 
whan  MACH  2  jumps  to  subroutinas. 

OS-9  usas  tha  A6  ragistar  to  hold  tha  addrass  of  tha  top  of  a 
modula's  data  araa.  MACH  2  kaaps  its  subroutina  stack, 
block  buffars,  jump  tablas,  and  variabla  space  in  the  data 
araa.  Use  of  tha  A6  register  is  strongly  discouraged. 

Tha  AS  is  tha  ragistar  usad  to  point  to  tha  MACH  2's  parameter  stack. 
Tha  AS  and  A7  stacks  grow  downward  in  memory.  Only  long  word 
values  may  be  put  onto  tha  AS  stack.  Tha  A7  stack  may  racaiva 
word  or  long  word  values. 

Tha  A4  ragistar  is  usad  as  a  linkage  register  for  MACH  2's  local 
variabias.  This  ragistar  may  be  usad  by  a  program  which  does 
not  use  local  variabias. 

Tha  A3  register  is  usad  in  conjunction  with  tha  OS  and  06  registers 
to  control  MACH  2‘s  loop  ratum  stack.  This  is  the  stack  usad  by 
OO  loops.  Only  long  word  values  are  put  onto  tha  A3  stack. 

Untouched  by  MACH2. 

MACH2  scratch  registers. 


Tha  07  is  usad  for  tha  floating  point  stack.  This  is  tha  stack 
usad  by  all  floating  point  operators.  Tha  07  ragistar  may  be 
usad  by  a  program  which  does  not  use  any  floating  point  routines. 

Tha  06  ragistar  holds  tha  top  item  on  tha  return  stack.  Ouring 
OO... LOOPS  tha  06  register  will  be  holding  tha  current  index 
value  for  tha  loop. 

Tha  05  ragistar  holds  tha  second  item  on  tha  return  stack. 

Ouring  OO... LOOPS  tha  05  register  will  be  holding  tha  limit 
value  for  tha  loop. 

Untouched  by  MACH2. 

MACH2  scratch  registers. 
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APPENDIX  C:  THE  MACH  2  LOOP  (RETURN)  STACK 

Most  FORTH'S  use  the  system  stack  for  their  return  stack.  This  means  that  any 
definitions  which  use  the  return  stack  must  make  sure  that  all  values  they  place  on  the 
return  stack  are  removed  before  the  definition  terminates.  Such  a  return  stack  can 
only  be  used  for  temporary  storage  during  the  execution  of  the  definition.  ANY 
parameters  left  on  the  system  stack  would  cover  up  important  subroutine  return 
addresses  and  would  cause  a  fatal  system  crash. 

In  MACH  2  a  completely  separate  stack  is  available  as  a  return  stack.  To  avoid 
confusion  between  the  subroutine  return  stack  and  the  FORTH  return  stack,  this 
separate  stack  is  called  the  'Loop  Stack'  since  it  is  primarily  used  by  FORTH  to  hold 
the  loop  indicies  used  during  OO...LOOPS.  The  loop  stack  is  also  available  as  a 
general  purpose  stack  for  use  in  your  programs. 

The  loop  stack  has  been  implemented  differently  than  a  normal  stack  to  speed  up  the 
execution  of  the  DO.. .LOOP  control  structure.  If  you  use  FORTH'S  return  stack  operators 
you  don1  have  to  worry  about  the  details  of  the  special  loop  stack  implementation.  If 
you  are  programming  in  assembly  language  or  if  you  are  trying  to  disassemble  programs 
which  use  DO... LOOPS,  please  read  on. 


How  the  loop  stack  Is  Implemented 

First,  a  diagram  of  how  the  loop  stack  acts  when  an  item  is  added  to  it: 


BEFORE: 

AEJER 

A3:  stack  pointer 

A3: 1  0  0  0  2  sTTTl  stack  pointer 

06: 1  0  0  0  0  0  0  5  6  I  top  item 

06: 1  0  0  0  0  0  TTTl  top  item 

D5:  second  item 

05: 1  0  0  0  second  item 
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The  first  thing  to  notice  is  that  the  top  two  items  on  the  loop  stack  are  kept  in  the  06  and 
05  registers.  The  third  and  following  items  are  kept  on  a  stack  whose  stack  pointer  is 
kept  in  the  A3  register.  Also  note  that  the  actual  'stack'  portion  of  the  loop  stack  is  an 
upward  growing  stack  (normally  stacks  grow  downward  in  memory ). 

It  takes  three  steps  to  add  an  item  to  the  loop  stack; 

1 .  First  the  second  item  on  the  stack  (located  in  the  05  register)  must  be 
moved  to  the  'A3  stack'.  The  item  is  stored  at  the  address  contained  in 
the  A3  register  and  then  the  address  is  incremented  by  four  bytes.This 
means  the  stack  pointer  is  always  left  pointing  at  the  next  available  slot  in 
the  stack. 

2.  Second,  the  top  item  on  the  stack  (located  in  the  06  register)  is  placed  in 
the  second  slot  on  the  stack  (in  the  05  register). 

3 .  Then  the  new  item  is  put  in  the  top  loop  stack  position  (in  the  06  register). 

The  return  stack  grows  up  and  down  through  the  05  and  06  registers. 

The  reason  this  return  stack  implementation  speeds  up  the  OO...LOOP  control  structure 
is  that  during  the  execution  of  a  OO...LCX3P.  the  limit  and  index  will  always  be  the  top  two 
items  on  the  stack.  With  this  return  stack  the  top  two  items  are  always  k^  in  registers. 

If  you  were  to  study  the  68000  instruction  execution  times  you  would  see  that  instructions 
which  operate  on  registers  execute  much  faster  than  instructions  which  operate  on  the 
contents  of  memory  locations. 
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APPENDIX  D:  Subroutine  Threading 

Gonsral  Discussion 

MACH  2  is  subroutine-threaded  code.  This  means  that  words  like  'FORGET  or  ‘ROT 
are  actual  assembly-language  subroutines  used  by  other  subroutines  such  as  'QUERY' 
or  'WORDS'.  The  68000  oins  everything. 

While  this  may  sound  only  natural,  such  threading  is  actually  new  to  FORTH.  Older 
processors,  such  as  the  8085,  were  not  equipped  to  handle  the  stack-oriented  structure 
of  FORTH  so  a  virtual  CPU  had  to  be  written  that  could  keep  track  of  the  stacks. 

This  led  to  a  language  that  ran  via  lists  of  addresses  of  routines  ('adrfress-threading') 
which  in  turn  were  either  lists  of  addresses  or  the  final  assembly  language  to  be  executed. 
The  speed  penalty  of  this  virtual  CPU  is  obvious. 

The  68000,  however,  is  perfectly  equipped  to  run  FORTH  by  itself  due  to  its 
general-purpose  registers  and  addressing-modes  which  allow  many  stacks  to  exist.  The 
old  NEXT  instruction,  the  brain  of  the  virtual  CPU.  has  been  replaced  by  the  68000‘s  own 
RTS  instruction  which  executes  in  2  ps  (thafs  two  millionth's  of  a  second).  The  switch  to 
subroutine-threading  brings  about  tripling  in  execution  speed.  It  does  also  cause  a  slight 
increase  in  the  size  of  the  code  generated  but.  in  today's  large  memory  machines,  program 
size  is  becoming  less  of  an  issue.  In  addition,  the  language  becomes  much  more 
understandable;  there's  less  magic. 

The  bottom  line?  FORTH  is  now  three  times  as  fast  but  stii  retains  its  traditionally-small  kernel. 
It's  still  an  interactive  development  language  whose  programs  are  written  and  debugged  in 
perhaps  1/4  the  time  required  for  an  edit-compile-try  again  language  like  C. 

How  Subroutine-Threading  Is  implemented 

Very  simply,  references  to  other  Forth  definitions  are  compiled  as  JSR's  ( that's  a  68000 
mnemonic  for  Jump  to  Subroutine).  At  run-time  the  68000  jumps  to  this  subroutine 
and  returns  when  the  subroutine  has  finished  execution.  For  instance,  this  is  the 
assembly  language  code  for  the  FORTH  word  U. : 


'  U.  5  IL 

U. 

089F86: 

JSR 

$-8A(PC) 

S89EFC 

<# 

089F8A: 

JSR 

S-14 (PC) 

S89F76 

*S 

089F8E: 

JSR 

S-80 (PC) 

$89F0E 

#> 

089F92: 

JSR 

S-9C(PC) 

S89EF6 

TYPE 

089F96: 

JSR 

S-70 (PC) 

$8A00€ 

SPACE 

ole  <0> 

U.  is  comprised  of  a  series  of  JSR's  to  other  FORTH  words.  AH  words  in  the  FORTH 
kernel  reference  each  other  via  PC-relative  JSR's. 
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APPENDIX  E:  MACRO  SUBSTITUTION 

Macro  substitution  is  a  technique  used  at  compile  time  to  increase  speed  by  iaying  in  the 
actual  code  for  a  routine  instead  of  compiiing  a  jump  to  the  subroutine.  For  exampie, 
in  the  definition 

:  SQUARED  DUP  *  ; 

the  compiler  could  lay  in  a  jump  (4  bytes)  to  the  'OUP  subroutine  (JSR)  and  then  a  jump 
to  the  ■**  subroutine.  The  code  for  'DUP,  however  is  only  MOVE.L  (AS), -(AS),  a  two-byte 
instruction  that  repiicates  what  is  on  the  parameter  stack.  By  iaying  in  the  code  for  'DUP 
instead  of  a  jump  to  the  'DUP  subroutine.  'DUP'  ains  over  three  times  faster.  The  code  for 
'*',  though,  is  quite  large.  In  this  case,  the  tiny  increase  in  speed  does  not  justify  using  such 
a  large  amount  of  memory.  The  compiler  will  compile  a  PC-relative  jump  to  the  subroutine 
instead.  A  PC-relative  jump-to-subroutine  instruction  ( JSR  d(PC) )  requires  4  bytes. 

Using  Macro  Substitution 

A  FORTH  word  is  marked  as  a  macro  by  setting  the  MACH  bit  in  the  name  field  of  a  definition. 
Usually  the  word  MACH  is  used  for  this  purpose.  MACH  is  used  in  the  same  manner  as  the 
word  'IMMEDIATE'.  When  the  compiler  encounters  a  word  with  its  MACH  bit  set,  it  knows  it 
should  lay  the  code  for  the  word,  'DUP  for  example.  IN  the  definition  instead  of  a  JSR  to'  it. 
The  compiler  will  move  the  code  from  the  beginning  of  the  routine  up  to.  but  not  including, 
the  first  RTS  ($4E75)  it  finds,  into  the  definition  being  compiled. 

Precautions 

Do  not  use  any  PC-relative  references  to  words  outside  of  the  current  definition  in 
words  to  be  'macro-ed'.  A  PC-relative  reference  is  not  valid  once  it  has  been  moved. 

To  transta.'  correctly,  MACH  routines  should  have  ONLY  one  exit  point  (RTS)  and  that 
exit  should  be  located  in  the  last  line  of  the  routine. 

Caution,  excessive  use  of  MACH  words  may  yield  a  large  increase  in  program  size  with 
only  a  small  speed  improvement. 
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Examplas 

The  word '!'  is  defined  as  foilows: 

CODE !  ( n  a  -  ) 

MOVE.L  (A5)*,A0 
MOVE.L  {AS)*,{AO) 

RTS 

END-CODE  MACH 

The  following  disassembly  shows  how  !  is  compiled  into  a  definition,  aiong  with  several 
several  other  characteristics  of  compiiation.  The  word  to  be  disassembled  is  the 
following  (DUMMY  is  a  variable): 

:  TEST  0  2  DUP  ROT  DUMMY  !  ; 

MOVEQ.L  #$0,D0 

MOVE.L  D0,-(A5)  Move  a  0  on  to  the  Stack  (4  bytes). 

MOVEQ.L  *$2,00 

MOVE.L  00, -(AS)  Move  a  2  on  to  the  stack  (4  bytes). 

MOVE.L  (A5).-(A5)  Make  another  copy  of  whatever's  on  the  stack  (4  bytes). 

JSR  $-7BE6(A6)  Jump  through  the  Kitnp  table  to  the  code  for  ROT  (4  bytes). 

LEA  $-71  F8(A6)  ,A0  Get  address  of  DUMMY  into  a  register  (4  bytes). 

MOVE.L  (A5)+,(A0)  Store  top  stack  item  into  variable  location  (2  b^es). 

RTS  Return  to  whichever  word  called  this  one  (2  bytes) . 

There  are  four  types  of  compilation  apparent  in  this  example.  Numbers  are  compiled, 
not  as  FORTH  tters's,  but  as  68000  MOVE  instructions.  DUP  and !  are  marked  as 
macro  words  so  their  code  is  laid  directly  into  the  definition.  References  to  non-macro 
FORTH  words  ( such  as  ROT)  are  compiled  as  JSR's  through  the  juitp  table  to  the  proper 
subroutines. 
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APPENDIX  F:  Suggested  Reference  Readings 

FORTH 


Starting  FORTH  by  Leo  Brodie 
c  1981  by  FORTH,  Inc.,  Hermosa  Beach,  CA  90254 
Prentice-Hall,  Inc. 

Beginners  book  on  FORTH. 

Thinking  FORTH  by  Leo  Brodie 
C1984 

Prentice-Hall,  Inc. 

Discusses  FORTH  style  and  programming  techniques. 

68000  Assembly  Language 

M68000  16/32-Bit  Microprocessor  Programmer's  Reference  Manual,  4th  Edition 
c  1984  by  Motorola  Inc. 

Prentice-Hal,  Inc. 

Describes  the  68000  processor  and  each  68000  assembly  language  instruction. 

68000  Assembly  Language  Programming 
by  Gerry  Kane,  Doug  Hawkins,  and  Lance  Leventhal 
c  1981  ^  McGraw-Hill,  Inc. 

OSBORNEA4cGraw-Hil 

4.  .. .  jsses  68000  assembly  language  programming  for  the  beginner. 

OS-9  Programming 

OS-9/68000  Operating  System  Technical  Manual 
OS-9/68000  Macro  Assembler  User's  Manual 
OS-9/68000  Operating  System  User's  Manual 

Microware  Systems  Corporation 
1866  N.W.  114th  Street 
Des  Moines,  Iowa  50322 
(515)  224-1929 
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APPENDIX  G:  MACH  2  Error  Messages 


? 

ASCII  character  is  missing 

Cam 

Compile  Only ! 

Dictionary  entry  not  specified 

Divide  by  Zero  Error ! 

Empty 

Illegal  Instruction  at 
is  Redefined 

Line  1111  error  at 

Missing  ) 

Missing  WHILE 

No  Block  Zero ! 


Name  not  found. 

The  word  ASCII  did  not  find  an  ascii  character  to 
convert  to  a  number. 

An  attempt  has  been  made  to  FORGET  a  protected 
word. 

An  attempt  has  been  rrrade  to  immediately  execute 
a  word  which  may  only  be  used  within  a  colon  definition. 

A  defining  word  (word  which  creates  and  names  new 
dictionary  entries)  was  executed,  but  the  name  to 
be  given  to  the  new  dictionary  entry  did  not  follow  the 
defining  word  on  the  same  line.  Typing  VARIABLE  <cr> 
would  generate  this  message. 

Division  with  a  divisor  of  zero  was  atterrpted. 

Message  issued  by  the  word  .S  when  the  stack  is 
empty  and  there  are  no  numbers  for  it  to  display. 

The  68000  encountered  an  instmction  it  did  not 
recognize  at  the  address  indicated. 

A  new  definition  has  been  created  with  the  same  name 
as  a  currently  existing  definition.  Because  dictionary 
searches  will  terminate  at  the  first  version  of  a  word 
found,  the  previously  defined  word  is  now  hidden. 

A  Line  1111  exception  (usually  a  breakpoint)  has 
been  encountered  at  the  specified  address. 

A  comment  is  missing  its  right  parenthesis. 

The  WHILE  is  missing  from  a  BEGIN..WHILE.. 

REPEAT  loop. 

The  FORTH-83  standard  does  not  allow  LISTing 
or  LOADing  of  block  0. 
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Return  stack  misalignment 


Single  character  only 
Stack  Empty  ! 

Unpaired  BEGIN 

Unpaired  CASE 
Unpaired  OO 
Unpaired  IF 
Unpaired  OF 


The  return  stack  poirrter  changed  position  during 
the  compilation  of  a  definition.  This  can  oe  caused 
by  leaving  extra  values  on  the  return  stack  or  by 
removing  too  many  values  from  the  return  stack 
during  the  compilation  process.  This  error  condition 
generates  an  abort. 

A  string  with  more  than  1  character  followed  the  word  ASCII. 

An  attempt  was  made  to  take  a  number  from  the  parameter 
stack  when  the  stack  was  empty. 

A  BEGIN  is  missing  its  corresponding  AGAIN.  UNTIL,  or 
REPEAT. 

A  CASE  is  missing  its  corresponding  ENDCASE. 

A  DO  is  missing  its  corresponding  LOOP  or  +LOOP. 

An  IF  is  missing  its  corresponding  THEN. 

An  OF  is  missing  its  corresponding  ENOOF. 
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APPENDIX  H:  OS-9/68000  USER  MODE  SYSTEM  CALLS 


FSAIIBIt  Sets  bits  in  an  allocation  bit  map. 

Assembler  Cali:  OS9  F$AII8it 


Input; 

DO.W  •  Bit  number  of  first  bit  to  set 

Of  .W  •  Bit  count  (number  of  bits  to  set). 

(AO)  >  Base  address  of  an  allocation  bit  map. 

Output: 

Nona. 

Error  Output: 

cc  •  Carry  bit  sat 

01.  W  -  Appropriate  error  coda. 

FSChaIn  Load  and  execute  a  new  primary  module 

Asssmblsr  Call: 

OS9  FSChain 

Input: 

00. W  -  Oesired  module  type/language 

(must  be  program/object  or  O^any) 

Ol.L  •  additional  memory  size 

02.L  <•  parameter  size 

03.  W  •  number  of  lO  paths  to  copy 

D4.W  «  priority 

(AO)  •  module  name  ptr 

(A1)  -  parameter  ptr 

Output: 

OO.W  a  child  process  ID 

(AO)  a  updated  beyond  module  name 

Error  Output: 

cc  a  Carry  bit  set 

01  .W  a  Apprapriate  error  coda. 

Possible  Errors: 

ESNEMod 

FSCmpNam  Compare  two  names. 

Assembler  Call: 

OS9  FSCmpNam 

Input; 

01.  W  a  Length  of  patlem  string 
(AO)  a  Pointer  to  panarn  string 
(At )  a  Pointer  to  target  string 

Output: 

cc  a  Carry  bit  clear  if  the  strings  match 

Error  Output: 

cc  a  Carry  bit  set 

01  .W  a  Appropriate  error  code  if  unequal  or  error 

Possible  Errors: 

ESOiffer .  ESStkOvf 
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• 

F$CpyM0in  Copy  external  memory. 

Aeaembler  Call: 

OS9  FSCpyMam  1 

Input: 

DO.W 

a  Process  10  of  external  memory's  owner 

D1.L 

a  Number  ol  bytes  to  copy 

(AO) 

a  Address  of  memory  in  external  process  to  copy 

(A1) 

a  caller's  destination  butter  pointer 

Output: 

Nona. 

Error  Output: 

cc 

a  Carry  bit  set. 

01.W 

a  Appropriate  error  code. 

F$CRC  Generate  CRC. 

Aaaamblar  Call: 

OS9  FSCRC  1 

Input: 

OO.L 

a  Oata  byte  count 

D1.L 

a  CRC  accumulator 

(AO) 

a  Pointer  to  data 

Output: 

D1.L 

a  Updated  CRC  accumulator 

Error  Output: 

CC 

a  Carry  bit  set. 

D1.W 

a  Appropriate  error  code. 

FSDatMod  Create  data  module. 

Aaaamblar  Call: 

OS9  FSOatMod  I 

Input: 

OO.L 

a  Size  of  data  required  (not  including  header  or  CRC) 

01.  W 

a  Module  attr/revision 

02.W 

a  Module  access  permission 

(AO) 

a  Module  name  string  ptr 

• 

Output: 

OO.W 

a  Module  type/Tanguage 

01. W 

a  Module  attr/revision 

(AO) 

a  Updated  name  string  ptr 

(A1) 

a  Module  data  ptr  ('execution'  entry) 

(A2) 

a  Module  header  ptr 

Error  Output: 

CC 

a  Carry  bit  set. 

01.W 

a  Appropriate  error  code. 

Poaalbla  Errora: 

ESMNam 
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• 

FSOelBIt 


F$OExec 


FSDExIt 


Deallocate  in  a  bit  map. 


Assembler  Call: 

OS9  FSOsBit 

Input: 

DO.W  >  Bit  rtumbsr  of  first  bit  to  clear 

D1  .W  -  Bit  count  (number  of  bits  to  clear) 

(AO)  >  Base  address  of  an  allocation  bit  map 

Output: 

None. 

Error  Output: 

cc  •  Cany  bit  set. 

01  .W  -  Appropriate  error  code. 

Execute  debugged 

program. 

Asssmbisr  Call: 

OS9  FSDExac 

Input: 

OO.W  -  Process  ID  of  child  to  execute 

01  .L  -  Number  of  instructions  to  execute  (0-continuous) 

02.  W  •  Number  of  breakpoints  in  list 

(AO)  a  Breakpoint  list 

register  buffer  contains  child  register  image 

Output: 

DO.L  a  Total  number  of  instrijctions  executed  so  far 

01  .L  a  Remaining  count  not  executed 

02.W  a  Exception  occurred,  if  non-zero;  exception  offset 
03. W  a  Classificalion  word  (addr  or  bus  trap  only) 

04.L  a  Access  address  (addr  or  bus  trap  only) 

D5.W  a  Instruction  register  (addr  or  bus  trap  only) 
register  buffer  updated 

Error  Output: 

cc  a  Carry  bit  sat. 

01. W  a  Appropriate  error  coda. 

Possible  Errors: 

ESIPrcIO  .  ESPrcAbt 

Exit  debugged  program. 

Asssmbisr  Call: 

OS9  FSOExit 

Input: 

OO.W  a  Process  10  of  child  to  terminate 

Output: 

None. 

Error  Output: 

cc  a  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

Possibis  Errors: 

ESIPrcIO 
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• 

FSDFork 

Fork  process  under  control  of  debugger. 

Assembler  Csll: 

OS9  FSOFotk 

Input: 

DO.W  a  Desired  module  typa/revision  (O-any) 

01  .L  m  Additional  stack  space  to  allocate  (if  any) 

02.L  >  Parameter  size 

03.  W  a  Number  of  I/O  paths  for  child  to  inherit 

04.W  a  Module  priority 

(AO)  a  Module  name  ptr  (or  pathlist) 

(At )  a  Parameter  ptr 

(A2)  a  Register  buffer;  copy  of  child's  (O0-D7/A0-A7/SR/PC) 

Output: 

DO.W  a  Child  process  ID 

(AO)  a  Updated  past  module  name  string 

(A2)  a  Initial  image  of  the  child  process'  registers  in  buffer 

Error  Output: 

cc  a  Carry  bit  set. 

01  .W  a  Apprtx^riate  error  code. 

F$Exit 

Terminate  the  calling  process. 

Assembler  Call: 

OS9  FSExit 

Input: 

OO.W  a  Status  coda  to  be  retrunad  to  the  parent  process 

Output: 

Process  is  terminated 

Error  Output: 

None. 

FSFork 

Create  a  new  process. 

Assembler  Call: 

OS9  FSFork 

• 

Input: 

OO.W  a  Desired  module  type/ravision 

(usually  program/objact  Oaany) 

01  .L  a  Additional  memory  size 

02.L  a  Parameter  size 

03.  W  a  Number  of  I/O  paths  to  copy 

04.W  a  Priority 

(AO)  a  Module  name  ptr 

(A1)  a  Parameter  ptr 

Output: 

OO.W  a  Child  process  ID 

(AO)  a  Updated  past  module  name  string 

Error  Output: 

cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

Possible  Errors: 

ESNEMod 

A-15 

OS-9  User  Mode  System  Calls 

• 

FSGModOr  Get  module  directory. 

AsMmbler  Call:  OS9  FSGModOr 

Input:  D1.L  -  Maximum  numbar  of  bytes  to  copy 

(AO)  -  Buffer  pointer 

Output:  01. L  a  Actual  number  of  bytes  copied 

Error  Output:  cc  -  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

FSGPrO  BT  Get  process  descriptor  block  table  copy. 

Assombtor  Call:  OS9  FSGPrOBT 

Input:  01. L  a  Maximum  number  of  bytes  to  copy 

(AO)  a  Buffer  pointer 

Output:  01.L  a  Actual  number  of  bytes  copied 

Error  Output:  cc  a  Carry  bit  set 

01.  W  a  Appropriate  error  code. 

FSGPrDsc  Get  process  descriptor  copy. 


AsMmbler  Call: 

OS9  FSGPrOsc 

Input: 

OO.W  a  Requested  process  10 

01. W  a  Number  of  bytes  to  copy 

(AO)  a  Process  descriptor  buffer  pointer 

Output: 

None. 

Error  Output: 

cc  a  Carry  bit  set 

01. W  a  Appropriate  error  code. 

Possible  Errors: 

ESPrcID 

Get  process  ID  /  user  ID. 

Assembler  Call: 

OS9  FSIO 

Input: 

None. 

Output: 

OOW  a  Current  process  10 

01  .L  a  Current  process  group/user  number 
02.W  a  Current  process  priority 

Error  Output: 

cc  a  Carry  bit  set 

01.  W  a  Appropriate  error  code. 
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FSIcpt 


FSJullan 


FSLInk 


Set  up  a  signal  intercept  trap. 


Assembler  Call: 

OS9  FSIcpt 

Input: 

(AO)  -  Address  of  the  intercept  reutine 

(A6)  -  Address  to  be  passed  to  the  intercept  routine 

Output: 

Signals  sent  to  the  process  will  cause  the  intercept  routine 
to  be  called  instead  of  the  process  being  killed. 

Error  Output: 

None. 

Get  Julian  date. 

Assembler  Call: 

OS9  FSJullan 

Input: 

DO.L  m  Time  (OOhhmmss) 

01. L  a  Date  (yyyymmdd) 

Output: 

00. L  a  Time  (seconds  since  midnight) 

01. L  aJuliandate 

Error  Output: 

cc  a  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

Link  to  memory  module. 

Aaasmbisr  Call: 

OS9  FSLink 

Input: 

OO.W  a  Oesired  module  type/language  byte  (Oaany) 
(AO)  a  Module  name  string  pointer 

Output: 

OO.W  a  Actual  module  typ«/1anguage 

01  .W  a  Module  attributes/revision  level 

(AO)  a  Updated  past  the  module  name 

(A1)  a  K^ule  execution  entry  point 

(A2)  a  Module  pointer 

Error  Output: 

cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

Possible  Errors: 

ESMNF .  ESBNam  .  ESModBsy 
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F$Load  Load  module(s)  from  a  file. 

Assembler  Cell:  OS9  FSLoad 

Input:  OO.B  >  Access  mods 

(AO)  a  Path  name  pointer 

Output:  OO.W  a  Actual  module  type/language 

01.  W  a  Attributes/revision  level 

(AO)  a  Updated  beyond  path  name 

(At )  a  Module  execution  entry  pointer  (of  1  st  module  loaded) 

(A2)  a  Module  pointer 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

Possible  Errors:  ESMemFul ,  ESBMIO 

F  $  M  e  m  Resize  data  memory  area. 

Asssmbtor  Call:  OS9  F$Mem 

Input:  OO.L  a  Oesirsd  new  memory  size  in  bytes. 

Output:  OO.L  a  Actual  size  of  new  memory  area  in  bytes 

(A1 )  a  Pointer  to  new  end  of  data  segment  (.r-l ) 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

Possible  Errors:  ESOeISP  .  ESMemFul .  ESNoRAM 

F$PErr  Print  error  message 

Assembler  Cell: 

Input: 

Output: 

Error  Output: 

FSPrsNam  Parse  a  path  name. 

Assembler  Call:  OS9  FSPrsNam 

Input:  (AO)  a  Name  of  strirtg  pointer 

Output:  OO.B  a  Pathlist delimiter 

01. W  a  Length  of  pathlist  element 

(AO)  a  Pathlist  ptr  updated  past  the  optional  T  character 
(A1 )  a  Address  of  the  last  character  of  the  name  ♦  1 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 
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OS9  FSPErr 

OO.W  a  Error  massage  path  number  (Oanone) 
01  .W  a  Enor  number 

None. 

None. 


F$RTE  Return  from  interrupt  exception. 

Assembler  Cell:  OS9  FSRTE 

Input:  Nans. 

Output:  None. 

F  $  S  c  h  B 1 1  Search  bit  map  for  a  free  area. 

Asssmbisr  Call:  OS9  FSSchBit 

Input:  DO.W  •  Beginning  bit  number  to  search 

01  W  >  Number  of  bits  needed 
(AO)  •  Bit  map  pointer 
(At)  >  End  of  bit  map  (4-1 )  pointer 

Output:  OO.W  •  Beginning  bit  number  found 

01  .W  •  Number  of  bits  found 

Error  Output:  cc  •  Carry  bit  sat. 

01. W  -  Appropriate  error  coda. 

F$Send  Senda  signal  to  another  process. 

Assembler  Call:  OS9  FSSend 

Input:  OO.W  •  Intended  receiver's  process  10  number  (0-all) 

01  .W  -  Signal  coda  to  send 

Output:  None. 

Error  Output:  cc  -  Carry  bit  set. 

01. W  ■  Appropriate  error  code. 

Possible  Errors:  ESIPrcIO ,  ESUSigP 

FSSetCRC  Generate  valid  CRC  in  module. 

Assembler  Call:  OS9  FSSetCRC 

Input:  (AO)  •  Module  pointer 

Output:  None. 

Error  Output:  cc  -  Carry  bit  set. 

01. W  -  Appropriate  error  code. 

Possible  Errors:  ESBMIO 
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F$S*tSys  Set/Examine  OS-9  system  global  variables. 

AsMmbler  Call:  OSS  FSSatSys 

Input:  DO.W  •  Offset  of  systam  global  variabia  to  sat/axamina 

D1  .L  -  Siza  of  variable  in  least  significant  word 

(1,  2.  of  4  bytes).  The  most  significant  bit,  if  sat. 
indicates  an  examination  request.  Otherwise,  the 
variable  is  changed  to  the  value  in  register  02. 

02.L  •  New  value  (if  change  request) 

Output:  D2.L  •  Original  value  of  system  global  variable 

Error  Output:  cc  >  Carry  bit  set. 

01. W  >  Appropriate  error  code. 

FSSIeep  Put  calling  process  to  sleep. 

Aseembler  Call:  OSS  FSSIeep 

Input:  OO.L  •  Ticks/saconds  (number  of  ticks  to  sleep) 

Output:  OO.W  ■  Remaining  number  of  ticks  if  awakened  prematurely 

Error  Output:  cc  •  Carry  bit  set. 

01. W  a  Appropriate  error  coda. 

Possible  Errors:  ESNoClk 

F$SPrlor  Set  process  priority. 

Assembler  Call:  OSS  FSSPrior 

Input:  OO.W  >  Process  10 number 

01  W  a  Oesired  process  priority:  65535ahighest,  Oalowest 

Output:  None. 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

Possible  Errors:  ESIPrcIO 

FSSRqMem System  memory  request. 

Assembler  Call:  OSS  FSSRqMem 

Input:  OO.L  a  Byte  oount  of  requested  memory 

Output:  OO.L  a  Byte  count  of  memory  granted 

(A2)  a  Pointer  to  memory  block  allocated 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  coda. 

Possible  Errors:  ESMemt-ul ,  ESNoRAM 
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FSSRtMem 


FSSSpd 


FSSTIm* 


FSSTrap 


Return  system  memory.  1 

Assembler  Call: 

OS9  FSSRtMem 

Input: 

OO.L  a  Byte  count  ot  memory  being  returned 
(A2)  a  Address  of  memory  block  being  returned. 

Output: 

None. 

Error  Output: 

cc  a  Carry  bit  set. 

01.  W  a  Appropriate  error  code. 

Possibis  Errors: 

ESBPAddr 

Suspend  process,  (currently  not  implemented). 

Asssmblar  Call: 

OS9  FSSSpd 

Input: 

OO.W  a  Process  ID  to  suspend 

Output: 

None. 

Error  Output: 

cc  a  Carry  bit  sat. 

01. W  a  Appropriate  error  code. 

Possible  Errors: 

ESNoClk 

Set  system  date  and 

time. 

Asssmblar  Call: 

OS9  FSSTme 

Input: 

OO.L  a  Currant  time  (OOhhmmss) 

01  .L  a  Cunent  date  (yyyymmdd) 

Output: 

Tima/date  is  sat. 

Error  Output: 

cc  a  Carry  bit  set. 

Of.W  a  Appropriate  error  code. 

Set  error  trap  handler. 

Asssmblar  Call: 

OS9  FSSTrap 

Input: 

(AO)  a  Stack  to  use  it  exception  occurs 

(or  zero  to  use  the  cunent  stack) 

(A1 )  a  Pointer  to  sarv'ca  request  initialization  table 

Output: 

Nona. 

Error  Output: 

cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 
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FSSUsar 

Set  user  ID  number. 

AsMmbler  Call: 

OS9  FSSUsar 

Input: 

01. L  a  Oasirad  group/usar  ID  number 

Output: 

Nona. 

Error  Output: 

cc  a  Carry  bit  sat. 

01. W  a  Appropriate  error  coda. 

F$SysObg 

Call  system  debugger. 

Aasomblar  Call: 

OS9  FSSysObg 

Input: 

Nona. 

Output: 

Nona. 

Error  Output: 

cc  a  Carry  bK  sat. 

01  .W  a  Appropriate  error  coda. 

F$Tlma 

Get  system  date  and 

time. 

Aaaamblar  Call: 

OS9  FSTima 

Input: 

00. W  a  Format:  OaGragorian;  laJulian; 

2aGragorian  with  ticks;  3aJulian  with  ticks 

Output: 

OO.L  a  Currarrttima 

01  .L  a  Currant  data 

02. W  a  Oay  ol  weak  (OaSunday  to  SaSaturday) 

03.L  a  Ti^  rata/current  tick  (if  requested) 

Error  Output: 

cc  a  Carry  bit  sat 

01  .W  a  Appropriate  error  coda. 

FSTLInk 

Install  user  trap  handling  routine. 

Asaemblar  Call: 

OS9  FSTUnk 

Input: 

00.  W  a  User  trap  number  (1-1 5) 

01  .L  a  Optional  memory  ovarrida 

(AO)  a  Module  name  pointer 

If  (AO)aO  or  if  ((A0)]a0,  trap  handler  is  unlinked. 

Other  parameters  may  be  required  for  specific  trap  handlers. 

Output: 

(AO)  a  Updated  past  module  name 

(A1)  a  Trap  Ifcrary  execution  entry  point 

(A2)  a  Trap  module  poirrter 

Other  values  may  be  returned  by  specific  trap  handlers. 

Error  Output: 

cc  a  Carry  bit  set 

01  .W  a  Appropriate  error  code. 
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FSUnLInk  Unlink  a  module  by  address. 

Assembler  Cell:  OS9  FSUnUnk 

Input:  (A2)  >  Address  of  ths  module  header 

Output:  None. 

Error  Output:  cc  -  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

F$UnLoad  Unlink  module  by  name. 

AsssmbIsr  Call:  089  FSUnLoad 

Input:  00. W  .  Module  type/language 

(AO)  .  Module  name  pointer 

Output:  (AO)  a  Updated  past  module  name 

Error  Output:  cc  a  Carry  bit  sat. 

01  .W  a  Appropriate  error  code. 

F$Walt  Wait  for  child  process  to  terminate. 

AsssmbIsr  Call:  089  FSWait 

Input:  Nona. 

Output:  OO.W  a  Oacaased  child  process' process  10 

01. W  a  Child  process’ exit  status  code 

Error  Output:  cc  a  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

Possible  Errors:  ESNoChId 
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APPENDIX  I:  OS-9/68000:  I/O  SYSTEM  CALLS 


({Attach 


ISChgDIr 


({Close 


({Create 


Attach  a  new  device  to  the  system. 


Assamblar  Call: 

OS9 

ISAttach 

Input: 

OO.B 

(AO) 

>  Accass  mode  (Raad_,  Writa_.Updat J 
•  Oavice  nama  pointer 

Output: 

(A2) 

a  System's  device  table  pointer 

Error  Output: 

cc 

01  .W 

a  Carry  bit  sat. 
a  Appropriate  error  coda. 

Possible  Errors: 

ESOavOvf ,  ESBModa  ,  ESDavBsy  ,  ESMamFul 

Change  working  directory. 

Assembler  Call: 

OS9  ISChgOir 

Input: 

OO.B 

(AO) 

a  Accass  mods  (raad/Writa/axec) 
a  Address  of  the  pathlist 

Output: 

(AO) 

a  updated  past  pathname 

Error  Output: 

cc 

01. W 

a  Carry  bit  set 
a  Appropriate  error  cods. 

Possible  Errors: 

ESBPNam ,  ESBModa 

Close  a  path  to  a  file/device. 

Assembler  Call: 

OS9  ISCIosa 

Input: 

OO.W 

a  Path  number 

Output: 

Nona. 

Error  Output: 

cc 

01. W 

a  Carry  bit  set 
a  Appropriate  error  code 

Possible  Errors: 

ESBPNum 

Create  a  path  to  a  new  file. 


Asaembler  Call: 


OS9  ISCreata 


Input: 


Output: 

Error  Output: 


OO.B 

a  Access  mode  (S.  1.  E,  W,  R) 

B1.W 

a  File  attributes  (accass  permission) 

02.L 

a  Inittal  allocation  size  (optional) 

(AO) 

a  Pathname  pointer 

cc 

a  Carry  bit  set 

01. W 

a  Appropriate  error  code 
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l$Cr«ate 


t$Oelete 


ISOetach 


l$Oup 


Create  a  path  to  a  new  file. 

Asssmblsr  C*!!: 

OS9  ISCraats 

Input: 

DO.B  -  Access  mods  fS,  1.  E,  W,  R) 

B1.W  -  File  attributes  (accsss  permission) 

02.L  •  Initial  allocation  size  (optional) 

(AO)  •  Pathname  pointer 

Output: 

OO.W  a  Path  number 

(AO)  a  Updated  past  the  painlist 

Error  Output: 

cc  a  Carry  bit  set. 

01.  W  a  Appropriate  error  code 

Possible  Errors: 

ESPthFul .  ESBPNam 

Delete  a  file. 

Asssmblsr  Call: 

OS9  ISOelete 

Input: 

OO.B  a  Access  mode  (raad/write/axec) 

(AO)  a  Pathname  pointer 

Output: 

(AO)  a  Updated  past  pathlist 

Error  Output: 

cc  a  Carry  bit  sat. 

01. W  a  Appropriate  error  code 

Posslbls  Errors: 

ESBPNam 

Remove  a  device  from  the  system. 

Asssmblsr  Call: 

OS9  ISOetach 

Input: 

(A2)  a  Address  of  the  device  table  entry 

Output: 

None. 

Error  Output: 

cc  a  Carry  bit  set. 

01.  W  a  Appropriate  error  code 

Posslbls  Errors: 

ESBPNam 

Duplicate  a  path. 

Asssmblsr  Call: 

OS9  ISOup 

Input: 

OO.W  a  Path  number  of  path  to  duplicate 

Output: 

Error  Output: 


DO.W  m  Naw  numbar  for  iha  same  path 

cc  •  Carry  bit  sat. 

01.  W  «  Appropriate  error  cxtda 


Possible  Errors:  ESPthFul ,  E$BPNum 
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l$G0tStt  Get  file/device  status. 

Assembler  Call:  0S9  ISGstSn 

Input:  DO.W  •  Path  numbsr 

01.W  -  Function  cods 

Others  -  Dependent  on  function  code 

Output:  Dependent  on  function  code 

Error  Output:  cc  •  Carry  bit  set. 

D1.W  •  Appropriate  enor  code 

Possible  Errors:  ESBPNum 

ISMakDIr  Make  a  new  directory. 

Assembler  Call:  OS9  ISMakDIr 

Input:  DO.B  •  Access  mode 

D1.W  >  Access  permissions 

D2.L  •  Initial  allocation  size  (optional) 

(AO)  -  Pathname  pointer 

Output:  (AO)  a  Updated  past  pathname 

Error  Output:  cc  -  Carry  bit  set. 

01.  W  •  Appropriate  error  code 

Possible  Errors:  ESBPNam  .  ESCEF 

ISOpen  Open  a  path  to  a  file  or  device. 

Assembler  Call:  0S9  ISOpen 

Input:  DO.B  >  Access  mode  (0.  S.  E.  W,  R) 

(AO)  •  Pathname  pointer 

Output:  DO.W  ■  Path  number 

(AO)  a  (Updated  past  pathname  (trailing  spaces  skipped) 

Error  Output:  cc  a  Carry  bit  set. 

D1.W  a  Appropriate  error  code 

Possible  Errors:  ESPthFul .  ESBPNam  ,  ESBmode.  ESFNA  ,  ESPNNF .  ESShare 
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ISRead 


l$ReadLn 


ISSeek 


Read  data  from  a  file  or  device. 


Assembler  Call: 

OS9  ISRead 

Input: 

00.  W  •  Path  number 

01  .L  -  Maximum  number  of  bytes  to  read 
(AO)  m  Address  of  input  buffer 

Output: 

01  .L  -  Number  of  bytes  actually  read 

Error  Output: 

cc  •  Carry  bit  set. 

01  .W  -  Appropriate  error  code 

Possible  Errors: 

ESBPNum  ,  ESRead  .  ESBMode ,  ESEOF 

Read  a  line  of  text  with  editing. 

Assembler  Call: 

OS9  ISRaadLn 

Input: 

OO.W  •  Path  number 

01  .L  -  Maximum  number  of  bytes  to  read 
(AO)  -  Address  of  input  buffer 

Output: 

01  .L  m  Actual  number  of  bytes  written 

Error  Output: 

cc  -  Carry  bit  set 

01.  W  -  Appropriate  error  coda 

Possible  Errors: 

ESBPNum  ,  ESRead .  ESBMode 

Reposition  the  logical  file  pointer. 

Assembler  Call: 

OS9  ISSeek 

Input: 

OO.W  •  Path  number 

01.L  ■  New  position 

Output: 

Nona. 

Error  Output: 

cc  m  Carry  bit  set. 

01.  W  -  Appropriate  error  code 

Possible  Errors: 

ESBPNum 
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0S9  ISSatStt 


ISSetStt 


ISWrIte 


ISWrItLn 


Set  (ile/device  status. 
Assembler  Call: 


Input: 

DO.W  -  Path  number 

01. W  -  Function  code 

Others  >  Function  coda  dependant 

Output: 

Function  code  dependant. 

Error  Output: 

cc  a  Carry  bit  sat. 

01. W  a  Appropriate  error  code 

Possible  Errors; 

ESBPNum 

Write  data  to  a  file  or 

device. 

Asssmblar  Call: 

OS9  ISWrite 

Input: 

OO.W  a  Path  number 

01  .L  a  Maximum  number  of  bytes  to  write 
(AO)  a  Address  of  buffer 

Output: 

01  .L  a  Number  of  bytes  actually  written 

Error  Output: 

cc  a  Carry  bit  set. 

01  .W  a  Appropriate  anor  coda 

Poaalbls  Errors; 

ESBPNum  .  ESBMode .  ESWrita 

Write  a  line  of  text  with  editing. 

Asssmblar  Call: 

OS9  ISWrittn 

Input; 

OO.W  a  Path  number 

01. L  a  Maximum  number  of  bytes  to  write 

(AO)  a  Address  of  buffer 

Output: 

01  .L  a  Actual  number  of  bytes  written 

Error  Output: 

cc  a  Carry  bit  sat. 

01  .W  a  Appropriate  error  code 

Possible  Errors: 

ESBPNum  ,  ESRaad .  ESBMode 
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APPENDIX  J:  05-9/68000:  SYSTEM  MODE  SYSTEM  CALLS 


FSAIIPD  Allocate  process/path  descriptor. 

AsMinblar  Call:  OS9  FSAllPO 

Input:  (AO)  •  Procass/path  table  pointer 

Output:  00. W  >  Process/path  number 

(At )  a  Pointer  to  process/path  descriptor 

Error  Output:  cc  -  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

F$ Al I Prc  Allocate  process  descriptor. 

Asaombler  Call:  OS9  FSAIIPrc 

Input:  Nona. 

Output:  (A2)  a  Process  descriptor  pointer 

Error  Output:  cc  a  Carry  bit  set. 

01  .W  a  Appropriate  error  coda. 

Poaalbla  Errora:  ESPrcFul 

F$AProe  Insert  process  in  active  process  queue. 

Aaaambler  Call:  OS9  FSAPtoc 

Input:  (AO)  a  Address  of  process  descriptor 

Output:  None. 

Error  Output:  cc  a  Carry  bit  sat. 

01  .W  a  Approprfate  error  code 

F$FlndPD  Find  process/path  descriptor. 

Aaaamblor  Call:  OS9  FSFindPO 

Input:  00. W  a  Procass/path  number 

(AO)  a  Procass/path  table  pointer 

Output:  (Al)  a  Pointer  to  process/path  descriptor 

Error  Output:  cc  a  Cany  bit  set. 

01  .W  a  Appropriate  error  coda 
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FSlOQu 


F$IRQ 


F$Mova 


FSNProc 


Enter  I/O  queue. 
AsMinbler  Call: 
Input: 

Output: 

Error  Output: 


OS9  FSlOQu 

DO.W  -  Procass  numbar 
Nona. 

cc  •  Carry  bit  sat. 

01  .W  •  Appropriata  arror  coda. 


Add  or  remove  device  from  IRQ  table. 


Assamblar  Call:  OS9  FSIRQ 


Input: 


Output: 

Error  Output: 

Poaalbla  Errors: 


00.8  •  vector  numbar: 

25-31  for  autovactors 
64-255  for  vectored  IRQ's 
01 .8  -  priority  (0>pollad  first,  255-last) 

(AO)  -  IRQ  sarvica  routine  entry  point  (0-deleta) 

(A2)  -  global  static  storage  pointer  (must  be  unique  to  device) 

(A3)  -  port  address 

Nona. 

cc  -  Carry  bit  set. 

01  .W  -  Appropriata  error  coda. 

ESPQLL 


Move  data  (low  bound  first) 


Assamblar  Call; 

OS9  FSMova 

Input: 

00. W  -  Source  tatsk  numbar  (not  req'd  on  Laval  1 ) 

01  .W  >  Oastination  task  numbar  (not  req'd  on  Laval  1 ) 
02.L  •  Byte  count  to  copy 

(AO)  -  Source  pointer 

(A2)  -  Oastination  pointer 

Output: 

Nona. 

Error  Output: 

cc  -  Carry  bit  sat. 

01.  W  a  Appropriata  arror  code. 

Start  next  process. 

Assamblar  Call: 

OS9  FSNProc 

Input: 

Nona. 

Output: 

Control  does  not  return  to  caller. 

Error  Output: 

cc  a  Carry  bit  sat. 

01  .W  a  Appropriate  error  coda 
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• 

F$R«tPO 

Return  process/path  descriptor. 

Assembler  Call: 

OS9  FSRetPO 

Input: 

DO.W  -  Procsss/path  number 

(AO)  a  Procass/path  table  pointer 

Output: 

None. 

Error  Output: 

cc  -  Carry  bit  set. 

01  .W  a  Appropriate  error  code. 

F$SLInk 

System  link. 

Asssmblar  Call: 

OS9  FSSLink 

Input: 

00. W  a  Oesired  module  type/ianguage  (Oaany) 

(AO)  a  Module  name  string  pointer 

Output: 

OO.W  a  Actual  module  type/language 

01. W  a  Module  attributes/revision 

(AO)  a  Updated  beyond  name  string 

(A1 )  a  k^ule  entry  point 

(A2)  a  Module  pointer 

Error  Output: 

cc  a  Carry  bit  set. 

01. W  a  Appropriate  error  code. 

Poaalbls  Errors: 

ESModSsy .  ESMemFul 

FSSSvc 

Service  request  table  initialization.  I 

Asssmblar  Call: 

OS9  FSSSvc 

Input: 

(A1 )  a  Pointer  to  service  request  initialization  table 

• 

Output; 

None. 

Error  Output: 

cc  a  Carry  bit  set. 

01.  W  a  Appropriate  error  code. 

F$VModul 

Verify  rrxidule. 

Asssmblar  Call: 

OS9  FSVModul 

Input: 

OO.L  a  Module  group  10 

(AO)  a  Address  of  module 

Output: 

(A2)  a  Oirectory  entry  pointer 

Error  Output: 

cc  a  Carry  bit  set. 

01. W  a  Appropriate  enor  code 

Possible  Errors: 

ESKwnMod  .  ESOirFul .  ESBMID  .  ESBMCRC  .  OSBMHP 
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APPENDIX  K:  OS-9  Error  Codes 


Error  Number 

Error  Type 

Description 

Symbol 

000:002 

Miscellaneous 

Keyboard  Quit 

000:003 

Miscellaneous 

Keyboard  Interrupt 

000:064 

Miscellaneous 

Illegal  Function  Code 

ESIlIFnc 

000:065 

Miscellaneous 

Format  Error 

ESFmtErr 

000:066 

Miscellaneous 

Number  Not  Found. 

ESNotNum 

000:067 

Miscellaneous 

Illegal  Argument 

ESillArg 

000:102 

Uninitialized  Trap 

Bus  Error 

ESBusErr 

000:103 

Uninitialized  Trap 

Address  Error 

ESAdrErr 

000:104 

Uninitialized  Trap 

Illegal  instmction 

ESilltns 

000:105 

Uninitialized  Trap 

Zero  Divide 

ESZerDiv 

000:106 

Uninitialized  Trap 

Check  (CHK) 

E$Chk 

000:107 

Uninitialized  Trap 

TRAPV 

ESTrapV 

000:108 

Uninitialized  Trap 

Privilege  Violation 

ESViolat 

000:109 

Uninitialized  Trap 

Trace  Error 

ESTrace 

000:110 

Uninitialized  Trap 

Line  1010  Emulator 

ESiOlO 

000:111 

Uninitialized  Trap 

Line  1111  Emulator 

E$1111 

000:112 

Uninitialized  Trap 

Invalid  TRAP  #12 

ESResrvd 

000:113 

Uninitialized  Trap 

Invalid  TRAP  #13 

ESResrvd 

000:114 

Uninitialized  Trap 

Invalid  TRAP  #14 

ESResnrd 

000:115 

Uninitialized  Trap 

Invalid  TRAP  #15 

ESResrvd 

000:116 

Uninitialized  Trap 

Invalid  TRAP  #16 

ESResrvd 

000:117 

Uninitialized  Trap 

Invalid  TRAP  #17 

ESResrvd 

000:118 

Uninitialized  Trap 

Invalid  TRAP  #18 

ESResrvd 

000:119 

Uninitialized  Trap 

Invalid  TRAP  #19 

ESResrvd 

000:120 

Uninitialized  Trap 

Invalid  TRAP  #20 

ESResrvd 

000:121 

Uninitialized  Trap 

Invalid  TRAP  #2l 

ESResrvd 

000:122 

Uninitialized  Trap 

Invalid  TRAP  #22 

ESResrvd 

000:123 

Uninitialized  Trap 

Invalid  TRAP  #23 

ESResrvd 

000:124 

Uninitialized  Trap 

Invalid  User  TRAP  #1 

ESTrap 

000:125 

Uninitialized  Trap 

Invalid  User  TRAP  #2 

ESTrap 

000:126 

Uninitialized  Trap 

Invalid  User  TRAP  #3 

ESTrap 

000:127 

Uninitialized  Trap 

Invalid  User  TRAP  #4 

ESTrap 

000:128 

Uninitialized  Trap 

Invalid  User  TRAP  #5 

ESTrap 

000:129 

Uninitialized  Trap 

Invalid  User  TRAP  #6 

ESTrap 

000:130 

Uninitialized  Trap 

Invalid  User  TRAP  #7 

ESTrap 

000:131 

Uninitialized  Trap 

Invalid  User  TRAP  #8 

ESTrap 

000:132 

Uninitialized  Trap 

Invalid  User  TRAP  #9 

ESTrap 

000:133 

Uninit  alized  Trap 

Invalid  User  TRAP  #10 

ESTrap 

000:134 

Uninitialized  Trap 

Invalid  User  TRAP  #ll 

ESTrap 
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Error  Numbtr  Error  Typo 


Ooscrlptlon 


Symbol 


000:135 

Uninitialized  Trap 

Uninitialized  User  TRAP  #12 

ESTrap 

000:136 

Uninitialized  Trap 

Uninitialized  User  TRAP  #13 

ESTrap 

000:137 

Uninitialized  Trap 

Uninitialized  User  TRAP  #14 

ESTrap 

000:138 

Uninitialized  Trap 

Uninitiaiized  User  TRAP  #l  5 

ESTrap 

000:139 

Miscellaneous 

No  Permission 

ESPermit 

000:140 

Miscellaneous 

Different  Arguments 

ESDiffer 

000:141 

Miscellaneous 

Stack  Overflow 

ESStkOvf 

000:142 

Miscellaneous 

Illegal  Event  ID 

ESEvntID 

000:143 

Miscellaneous 

Event  Name  Not  Found 

ESEvNF 

000:145 

Miscellaneous 

Event  Busy 

ESEvBusy 

000:146 

Miscellaneous 

Impossible  Event  Parameter 

ESEvParm 

000:200 

OS-9 

Path  Table  Full 

ESPthFul 

000:201 

OS-9 

Illegal  Path  Number 

ESBPNum 

000:202 

OS-9 

Interrupt  Polling  Table  Full 

ESPoll 

000:203 

OS-9 

Illegal  Mode 

ESBMode 

000:204 

OS-9 

Device  Table  FuS 

ESDevOvf 

000:205 

OS-9 

Illegal  Module  Header 

ESBMID 

000:206 

OS-9 

Module  Directory  Full 

ESDirFul 

000:207 

OS-9 

Memory  Full 

ESMemFul 

000:208 

OS-9 

Illegal  Senrice  Request 

ESUnkSvc 

000:209 

OS-9 

Module  Busy 

ESModBsy 

000:210 

OS-9 

Boundary  Error 

ESBPAddr 

000:211 

OS-9 

End  of  File 

ESEOF 

000:212 

OS-9 

Vector  Busy 

ESVctBsy 

000:213 

OS-9 

Non-Existing  Segment 

ESNES 

000:214 

OS-9 

File  Not  Accessable 

ESFNA 

000:215 

OS-9 

Bad  Path  Name 

ESBPNam 

000:216 

OS-9 

Path  Name  Not  Found 

ESPNNF 

000:217 

OS-9 

Segment  List  Full 

ESSLF 

000:218 

OS-9 

File  Already  Exists 

ESCEF 

000:219 

OS-9 

Illegal  Block  Address 

ESI  BA 

000:220 

OS-9 

Telephone  (Modem)  Data 
Carrier  Lost 

ESHangUp 

000:221 

OS-9 

Module  Not  Found 

ESMNF 

000:222 

OS-9 

No  Clock 

ESNoClk 

000:223 

OS-9 

Suicide  Attempt 

ESDeISP 

000:224 

OS-9 

Illegal  Process  Number 

ESIPrcID 

000:225 

OS-9 

Bad  Polling  Parameter 

ESParam 

000:226 

OS-9 

No  Children 

ESNoChId 

000:227 

OS-9 

Illegal  Trap  Code 

ESITrap 

000:228 

OS-9 

Process  Aborted 

ESPrcAbt 
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Error  Numbor 

Error  Typo 

Description 

Symbol 

000:229 

OS-9 

Process  Table  Full 

ESPrcFul 

000:230 

OS-9 

Illegal  Parameter  Area 

ESlForkP 

000:231 

OS-9 

Known  Module 

ESKwnMod 

000:232 

OS-9 

Incorrect  Module  CRC 

ESBMCRC 

000:233 

OS-9 

Signal  Enror 

ESUSigP 

000:234 

OS-9 

Non-Existent  Module 

ESNEMod 

000:235 

OS-9 

Bad  Name 

ESBNam 

000:236 

OS-9 

Bad  Parity 

ESBMHP 

000:237 

OS-9 

RAM  Fun 

ESNoRAM 

000:238 

OS-9 

Directory  Not  Empty 

ESDNE 

000:239 

OS-9 

No  Task  Number  Available 

ESNoTask 

000:240 

Device  Driver 

Illegal  Drive  Number 

ESUnit 

000:241 

Device  Driver 

Bad  Sector 

ESSect 

000:242 

Device  Driver 

Write  Protect 

E$WP 

000:243 

Device  Driver 

CRC  Error 

ESCRC 

000:244 

Device  Driver 

Read  Error 

E$Read 

000:245 

Device  Driver 

Write  Error 

ESWrite 

000:246 

Device  Driver 

Not  Ready 

ESNotRdy 

000:247 

Device  Driver 

Seek  Error 

ESSeek 

000:248 

Device  Driver 

Media  FuN 

ESFull 

000:249 

Device  Driver 

Wrong  Type 

ESBTyp 

000:250 

Device  Driver 

Device  Busy 

ESDevBsy 

000:251 

Device  Driver 

Disk  ID  Change 

ESDIDC 

000:252 

Device  Driver 

Record  Is  Locked  Out 

ESLock 

000:253 

Device  Driver 

Non-Sharable  File  Busy 

ESShare 

000:254 

Device  Driver 

I/O  Deadlock 

ESDeadLk 

000:255 

Device  Driver 

Device  is  Format  Protected 

ESFomnat 
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APPENDIX  L:  ASCII  Chart 


Ttie  'Char*  column  contains  the  ASCII  characters.  Some  of  these  characters  are 
control  characters  which  are  not  seen  on  the  keyboard.  The  Hex'  column  contains 
the  hexadecimal  numerical  equivalents  and  the  'Dec'  column  contains  the  decimal 
numerical  equivalents. 


Char 

Wax 

Oac 

Char 

Hax 

Oac 

Char 

Hax 

Oac 

Char 

Hax 

Oac 

NUL 

00 

00 

SP 

20 

32 

@ 

40 

64 

60 

96 

SOH 

01 

01 

! 

21 

33 

A 

41 

65 

a 

61 

97 

STX 

02 

02 

• 

22 

34 

B 

42 

66 

b 

62 

98 

ETX 

03 

03 

« 

23 

35 

C 

43 

67 

c 

63 

99 

EOT 

04 

04 

$ 

24 

36 

D 

44 

68 

d 

64 

100 

ENO 

05 

05 

% 

25 

37 

E 

45 

69 

a 

65 

101 

ACK 

06 

06 

& 

26 

38 

F 

46 

70 

f 

66 

102 

BEL 

07 

07 

27 

39 

G 

47 

71 

9 

67 

103 

BS 

08 

08 

( 

28 

40 

H 

48 

72 

h 

68 

104 

KT 

09 

09 

) 

29 

41 

1 

49 

73 

i 

69 

105 

LF 

OA 

10 

• 

2A 

42 

J 

4A 

74 

j 

6A 

106 

VT 

OB 

11 

♦ 

2B 

43 

K 

4B 

75 

k 

6B 

107 

FF 

OC 

12 

2C 

44 

L 

4C 

76 

1 

6C 

108 

CR 

00 

13 

- 

20 

45 

M 

40 

77 

m 

60 

109 

SM 

OE 

14 

2E 

46 

N 

4E 

78 

n 

6E 

110 

SI 

OF 

15 

/ 

2F 

47 

O 

4F 

79 

0 

6F 

111 

OL£ 

10 

16 

0 

30 

48 

P 

50 

80 

P 

70 

112 

DC1 

11 

17 

1 

31 

49 

Q 

51 

81 

9 

71 

113 

OC2 

12 

18 

2 

32 

50 

R 

52 

82 

r 

72 

114 

0C3 

13 

19 

3 

33 

51 

S 

53 

83 

s 

73 

115 

0C4 

14 

20 

4 

34 

52 

T 

54 

84 

t 

74 

116 

NAK 

15 

21 

5 

35 

53 

U 

55 

85 

u 

75 

117 

SYN 

16 

22 

6 

36 

54 

V 

56 

86 

V 

76 

118 

ETB 

17 

23 

7 

37 

55 

w 

57 

87 

w 

77 

119 

CAN 

18 

24 

8 

38 

56 

X 

58 

88 

X 

78 

120 

EM 

19 

25 

9 

39 

57 

Y 

59 

89 

y 

79 

121 

SUB 

1A 

26 

3A 

58 

z 

5A 

90 

z 

7A 

122 

ESC 

IB 

27 

\ 

3B 

59 

[ 

5B 

91 

1 

7B 

123 

FS 

1C 

28 

< 

3C 

60 

\ 

5C 

92 

1 

7C 

124 

GS 

ID 

29 

m 

30 

61 

1 

50 

93 

) 

TO 

125 

RS 

IE 

30 

> 

3E 

62 

A 

5E 

94 

7E 

126 

US 

IF 

31 

7 

3F 

63 

5F 

95 

DEL 

7F 

127 

(RB) 
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1 

1 

CONVERT 

KEY 

SORT 

" 

iCODE 

COUNT 

LAST 

STATE 

# 

< 

COUNTER 

LEAVE 

SWAP 

#> 

<# 

CR 

LINK>BODY 

TCAa 

•OUT 

CREATE 

LIST 

THEN 

#S 

■ 

0* 

LITERAL 

TIB 

#T1B 

> 

0< 

LOAD 

TIMER 

$ 

>BOOY 

OEBUG 

LOOP 

TURNKEY 

' 

>IN 

OECIMAL 

L  EXT 

TYPE 

>R 

OEFINITIONS 

MACH 

U. 

( 

?0UP 

OEPTH 

MAKEMODULE 

U< 

• 

?FREE 

OISK 

MAKECMOOULE 

UM- 

•/ 

7INCLU0E’ 

ONEGATE 

MATH 

UMMOO 

•/MOO 

7TERMINAL 

OO 

MAX 

UNTIL 

•f 

@ 

OOES> 

MIN 

UPDATE 

•(.! 

ABORT 

OROP 

MOO 

VAUOT 

+> 

ABORr 

OUMP 

NEGATE 

VARIABLE 

♦LOOP 

ABORT  VECTOR 

OUP 

NOT 

VERBOSE 

ABS 

ELSE 

NP 

VERIFY 

AGAIN 

EMfT 

NUMBER? 

VOCABULARY 

-> 

ALLOT 

EMPTY 

OF 

VP 

-TRAILING 

ALSO 

EMPTY-BUFFERS 

ONLY 

W! 

ANO 

ENO-COOE 

OR 

w. 

ASCII 

ENOCASE 

ORDER 

.( 

ASSEMBLER 

ENOOF 

OS-9 

WHILE 

R 

ASSIGNMOOULE 

EXECUTE 

OVER 

WORD 

S 

BASE 

EXIT 

PAD 

WORDS 

/ 

BEGIN 

EXPECT 

PICK 

W  EXT 

/MOO 

BINARY 

FILL 

QUERY 

XOR 

0< 

BLK 

FINO 

QUIT 

( 

0- 

BLOCK 

ausH 

H> 

fl  • 

0> 

BOOY>LINK 

FORGET 

FV§> 

[COMPILE] 

u 

BUFFER 

FORTH 

RECURSIVE 

\ 

1- 

BYE 

FORTH-83 

REPEAT 

] 

2* 

C! 

HERE 

ROLL 

A 

2* 

C. 

HEX 

ROT 

{ 

2- 

C@ 

HOLO 

SAVE-BUFFERS 

2/ 

CASE 

1 

SEAL 

20ROP 

CMOVE 

!• 

SIGN 

20UP 

CMOVE> 

IF 

SMUDGE 

20VER 

CODE 

IMMEDIATE 

SPACE 

2SWAP 

COMPILE 

INCLUDE- 

SPACES 

CONSTAI^ 

J 

SPAN 
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APPENDIX  N:  MACH2  EDITION  2  INFORMATION 


This  appendix  documents  the  differences  between  Mach2  Edition  #1  and 
Mach2  Edition  #2  for  OS-9  version  2.0. 

The  topics  covered  are; 

New  Math  Module  Support 

High  Level  Driver  Creation  Supported 

Number  Base  Specification  Extended 

68020  Long  PC-Relative  BSR's  Supported 

Module  Name  Change 

Module  Header  Information  Change 


New  Math  Module  Support 

The  Matht  and  Math2  modules  found  in  OS-9  version  1 .2  have  been  combined  into  one  module. 
Math,  under  OS-9  version  2.0.  In  Mach2  Edition  #2.  this  single  math  module  is  supported 
via  TRAP  15.  TRAP  14.  which  was  previously  used  to  access  the  Mathi  module,  is  now  available. 

High  Level  Driver  Creation  Support  Added 

Mach2  now  contains  support  for  the  high  level  creation  of  OS-9  device  drivers.  Any  Forth  word 
which  does  not  reference  the  Mach2  kernel  may  be  used  in  the  driver.  To  check  for  invalid  driver 
words,  store  a  -1  in  VERBOSE  and  load  your  driver  code.  Any  invalid  kernel  references  will  be 
flagged  during  compilation. 

An  example  Sequential  Character  File  (SCF)  device  driver  will  be  available  in  the  near  future. 
MAKEDRIVER 

The  word  MAKEDRIVER  is  used  to  turn  your  loaded  code  into  a  proper  OS-9  driver  module. 
MAKEDRIVER  is  passed  the  number  of  bytes  of  variable  space  required  by  the  driver  and  the 
start  and  end  address  of  the  driver  code  in  memory.  The  name  for  the  driver  module  should  follow 
MAKEDRIVER: 

<#varbytes>  <startaddress>  <endaddress>  MAKEDRIVER  <drivemame> 
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Required  driver  routines. 

Your  device  driver  code  must  contain  the  following  seven  routines: 

INIT  -  Initialize  device. 

READ  -  Read  a  character. 

WRITE  -  Write  a  character. 

GETSTA  -  Get  device  status. 

SETSTA  -  Set  device  status. 

TERM  -  Terminate  device. 

EXCEPTION  -  Handles  illegal  exception. 

The  functions  of  these  seven  routines  are  described  in  the  OS-9  68000  Operating  System 
Technical  Manual.  When  MAKEORIVER  is  executed,  it  will  check  for  the  existence  of  these 
seven  words.  If  they  are  not  all  present,  MAKEORIVER  will  present  an  en-or  message  and 
abort  execution. 

Driver  variables. 

To  define  a  driver  variable,  use  the  word  ORVRVar  as  follows: 

#16  ORVRVar  CharWkjth 

The  base  address  of  the  driver  variable  area  is  kept  in  the  A2  register.  The  variable  storage  area 
for  CharWidth  would  be  located  16  bytes  into  the  driver  variable  area  ( #16(A2) ).  Oriver  variable 
references  are  compiled  as  offsets  from  the  A2  register. 


Number  Base  Specification  Extended 


By  preceeding  numbers  with  the  characters, 
be  overidden. 

OECIMAL  •>  # 

HEX  ->  $ 

BINARY  ->  % 

Examples: 

$12  >  18  Decimal 
%10  -  5  Decimal 
#10  -  10  Decimal 


#  $  % )  the  current  BASE  of  the  compiler  can 
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68020  Long  PC-Reiative  BSR’s  Supported 


Ttie  Mach2  compiler  now  supports  the  32-bit  displacement  version  of  the  68020's  PC-relative 
BSR  instruction.  Execution  of  the  word  MC68020  will  set  the  compiler  switch  which  tells  the 
compiler  to  use  68020  32-bit  8SR  instructions  if  necessary.  If  MC68020  has  been  executed, 
and  a  Forth  word  references  another  word  which  is  further  than  32K  bytes  away,  the  Mach2 
compiler  will  automatically  generate  the  6  byte  68020  BSR.L  instmction  ($61 FF). 


Module  Name  Change 

The  main  module  in  the  Mach2  file,  which  used  to  be  called  MACH,  is  now  called  MACH2. 


Module  Header  information  Fixed 

The  permission  and  owner  information  in  the  Mach2  module  header  is  now  compatible  with 
OS-9  version  2.0. 
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INDEX 


SCLOSE  61,G-211 
SCREATE  59.G-211 
SDELETE  61,G-211 
$OPEN  60,G-211 
$WRITE  62.G-211 
ALIGN  G-217 
?FREE  23 

70S9ERR0R  60,64, G-21 2 


A 

A6  register  21,69,70,77,80,83,A-3 
ALLOT  18,19 
ALSO  24-25 
assembler  36-44 
comments  39 
data  storage  allocation  41 
directives  41,G-217,G-218 
examples  15, 
infix  15 
inline  math  40 
interactive  36 
local  labels  39 
macros  44 
operators  40 

psuedo-instructions  38,39,42 
symbols  41 
ASSIGNMOOULE  79 

assembly  language  definition  81 
attributes  see  files' 


B 

benchmark  see  'Sieve' 


c 

C  compiler,  OS-9 
exarrple  89-91 

parameter  passing  conventions  87 
register  variables  91 
strings  G-3 

see  also  generic  format  trap  module' 
case  sensitive  5 
CODE  37 
code  space  42,77 
diagram  18 
size  of  19 

see  also  'HERE' . 'ALLOT 
comments 

in  assembler  39 
may  be  nested  G-12 
single  line  G-207 
CONSTANT  41 
CREATE  19 


D 

daf-  area  22,42, 66,69,70,77,A-3 
data  pointer  see 'data  area' 

DC  42,G-217 
DCB  43 
DEBUG  46 
debugger  46-51 
commands  48-51 
display  47 
examples  16 
invoking  the  debugger  46 
trap  module  usage  78 
warning  47,G-108 
DEFINITIONS  25 
device  drivers  76,85 
dictionary  24 

removing  words  from  25 
dictionary  header  see  'header* 
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Index 


INDEX 


directives,  assembler 
DS  41 
EQU  41 

disassembler  45,50 
examples  16 
uses  trap  module  45,78 
DS  41.G-218 


E 

echo  57 
EMPTY  26 
diagram  25 
END-CODE  37 
EQU  41.G-218 
error  handling  64-65 

exception  errors  see  'exception  handling' 
MACH2  error  messages  A-10-A-il 
OS-9  error  codes  A-32-A-34 
OS-9  error  format  64 
ERRORPATH  64.G-212 
exception  handling  66-68 
exception  errors  66 
exception  table  (68000)  66 
exce^ion  table  (OS-9)  67 
installing  exception  handling  routines  68 
EXPECT  55 


F 

FSExit 
F$Fork  G-9 
FSIcpt  69,70 
F$ID  72 
FSPErr  64-65 
F$RTE  69 
FSSend  72 
FSSTrap  68 
FSTLink  82,90 
F$Wait  G-9 


FILEID  G-77,G-136.G-189,G-212 
files  59-63 

access  mode  59,61 
attributes  59 
closing  61 
creating  59 
current  file  G-77 
deleting  61 
errors  G-99 

FORTH  file  handling  words  59 
loading  i5,G-74 
opening  60 

OS-9  file  handling  words  59 
path  number  60,61 
writffigto  62 
FILL  62 

floating  point  14,30-31 

floating  point  stack  30.88.A-3 
mode  3l.seealso'FP,'iNT 
vocabulary  words  G-213-G-216 
FP  31 

FORGET  26 
da^am  25 
FORTH 

words,  a^habetical  A-35 
FORTH-83  see 'standards' 


G 

'generic'  format  trap  module  83-92 
C  caing  example  89 
may  be  cal  from  other  languages  83 
parameter  passing  86 
required  stack  size  87 
returning  results  87 
selector  86 
stack  notation  84 
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Index 


INDEX 


H 

HEADER  G-217,G-218 
header  18-20 
diagram  A-2 
see  also  'names  space' 
HERE  18,19 


local  variables  12,27-28 
example  27  . 
operator  28 
register  usage  A-3 
stack  notatbn  29 
loop  stack  A-4,A-5 

in 'generic' trap  module  88 


ISGetStt  56 
ISRead  54,55,63 
l$ReadLn  54,55 
ISSetStt  56 
l$Write  54 
ISWritLn  54 
IMMEDIATE  44 
INT  31 

interrupt  keys  54,55 


J 

JSR  37,44,51, 77,80,G-128,A-6 
see  also  'subroutine  threading' 
jump  table  77,G-128 
diagram  21 


K 

KEY  55 


L 

LABEL  41,G-218 
line  editing  54 
link  field  G-76,A-2 
LIST  {OS-9  command)  62 


'MACH*  format  trap  module  77-82 
assigning  trap  numbers  78 
calling  the  trap  module  79 
inttiafization  of  80 
readng  into  memory  81 
selector  77,79 
stack  notation  78 
see  aJsc  irap  module' 

Machbit  44 
MACH2 

re^er  usage  A-3 
Starting  up  4 
MACHMOOULE  77 
exarrtte  G-178 
macro  S'.'bstitution  44,A-7,A-8 
MAKEMODULE  84 
exarr^  85 
Memory 

availability  12,23 
display  49 
requiremenls  4 
utilifyword  see  '7FREE’ 
see  also  'code  space',  'names  space', 
arvj 'variable  space' 
mnemonics  45 

modules  see  also 'trap  modules' 
cSsassembler  module  45 
executable  see  TURNKEY'. 

•MACHMODULE'.  'MAKEMODULE' 
math  modules  30 
MOVEM  discussion  80 

A-*2 

Index 


INDEX 


named  input  parameters 
names  space 
diagram  20 
size  of  20 
see  also 'NP' 

NP  20 


see  'local  variables' 


psuedo-inst  ructions 
OC  42 
DCS  43 

-'OS9'  38,39,44 


TCALL  43 


R 


O 

ONLY  24 
exarrple  25 
ORDER  26 

OS-9/68000  Technical  Manuals 
revision  2 
OS-9 

error  codes  A-32-A-34 
error  message  tile  65  :  .  or 

errors  38,64-65 
I/O  system  cals  A-24-A-28 
shell  49.73.77,84 
system  rmde  system  calls  A-29-A-31 
user  rrxrde  system  calls  A-12-A-23 
OS9  Q-218 

see  also  Ipsuedo-instructions' 


P 

parameter  stack  5,8,29,51 
in 'generic' trap  module  88 
register  usage  A-3 
PARAM_PTR  73,G-212 
PC-relative  32,44 
position-independent  32 
precedence  (of  arithmetic  operators)  40 
process  id  72 

process  parameter  passing  73-75 
processes  69,72,73 
child  &9 


Random  Block  File  Manager  54,59 
recursion  '28 

see  also  'local  variables' 

Y^i^er  usage  A-3 
relocatable  32 
RESP<>JSE  69.G-212 
'ft'FS  =37.A4.G-208 


SEAL  26 
'  (Saonm  iS  ■ 
searbh  (Order  2.4 
'  da^ain  2S. 

•  tftlitiee  26 

seledOr  see  Irap  modules' 

'sev-moditying  code  47 
'■  'Sequential  Character  File  Manager  54 
Sievie'-'i#  * 
signals  69-72 

sl^ai  intercept  routine  69 
SMUDGE  44 
software  exception  vector  38.44,45,66,81. G- 70 
usage  table  78 
see  also  'exception  handling' 

SPANNS 
stack  notation  29 


A-43 

Index 


INDEX 


stacks 

32-t)its  wide  10,29 
depth  indicator  5 

floiMing  point  stack  ^  lloating  point' 
loop  stack  see  loop  stack' 
notation  see ‘stack  notation' 
parameter  stack  see 'parameter  stack' 
subroutine  stack  see 'subroutine  stack' 
Standard 

32-bit  FORTH-83  29.G-151 
FORTH-79  to 
FORTH-83  10.59 
status  register  51 
subroutine  stack 

in 'genedC;  trap  module  88 
registerusage  A-3 
subroutine  threading 

Ar6 

Support 
Mai  i 

RoundTable  ai 
Telephone  ii 


T 

tasks  89 
TCALL  43,79.82 

assembly  language  definition  79 
terminal  device  54-58 
characteristics  56 
echo  57 
TMOOE  56 
transierS  vocabulary  25 
trap  modules  77-92 
stacknotatiDn  77 

see  also 'NMVSH  forrnat  trap  module', 
'generic!,  formal  trap  module' 
TURNKEY  14,32-33.73 
abort  considerations  33 
cant  use  compiler  words  33 
example  74-75.Q-1R 


U 

user  trap  handler  modules  see  trap  modules' 
utility  commands  13 


V 

variable  space  42.77 

aUpctfjng  variable  space  22 
dagom  2i 

located  r^ative  to  A6  2i 
size  of  21,22 

see  also  VP .  VALLOT  , 'VARIABLE' 
variables 
accessing  22 
arrays  22 
crea^  22 
exanvies  22 

see  also  VARIABLE’ ,  VALLOT 
VERBOSE  33 

flay  llegal  MAKEMQDULE  words  84 
vocabularies  24-26 
appication  26 
creating  26 
(lagram  25 
search  order  24 
transieni  25 
VOCABULARY  26 
VP  21-23 


w 

WORDS  26 


X 

XMOOE  56 
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!mMX 


Aaokft 

32-bRtwUt.  I0;29. 
di|34tiintfcttpr  5 

W  ^ngpoinr 
bop  tt»'- itHK' 
no^diofi  ■4MJi|KMiQ$silonf 
pMranwbffiwi^f-  sMlppiwiiiiifittcic 
aubrautm^ck  •M.'aubrouiirii  ttadc* 
SttfidanI 

32-b«  FOPT>+83  29.Q.151 
f=ORtH-79  10 
FORTH-83  10^ 
siatiMrtgMtr  51 
s^irouiina  stack 

in 'c^ntdc!  trap  modula  88 
usage  A-3 
subroutbe  threading 

Support 
Mai  8 

RcxaxfTable  n 
Tei^yione  ii 


T 

t—tff  as 

TCALL  43.79,82 

assentxy  language  detinMon  79 
terminai  device  5^58 
cnaraciensDCS  so. 
edx)  57 
TMOOE  56 
tianeienivor^bulajy  25 
trap  modules  77-92 
staoknotadon  77 

see  abo  tlACH  format  trap  module’, 
s^nerv  formal  vap  mooiae 
TURNKEY  14.32-33,73 
abort  oonsideratioftt  33 
cant  use  compiler  words  33 
exarrxjie  74-75.0-182 


u 

uaertaphandsciaqfAjiee  sm  ln^  modules' 
laityopfisnanda  13 


V 

varisbie  spspe  43,77 

aipeadngvairtable  space.  22 
dagoan  21 

lociiediaMvefoAd  2i 
size  of -21 ,22 

SM  also  VP .  VAiiOT .  VARIABLE’ 
variables 

ffrrrwftVvi  22 
arrays  22 
cnsaling  22 

wX9nV]W8T 

see  also  VARtABLE* .  VAUOr 
VERBOSE  33 

flags  bagalMAKEMOOULE  words  84 
vocabularies .  24*26 
apppppiion  26^ 
cres^  26 
dagom -29<'- 
ssarchdsdar.,244 

WVMfW'  A: 

VOCABULARY  26 
VP  21-33. 


w 

WOROS.26 


X 

XMOOE  56 
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